Macintosh-SW
/
mpw
mirror of https://github.com/ksherlock/mpw.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

add facess calls for set/get font info

This commit is contained in:
Kelvin Sherlock 2014-01-29 22:46:20 -05:00
parent cd8bdfaa60
commit 5dcf23ad76
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
mpw/mpw_access.cpp
View File

@ -61,6 +61,34 @@
namespace MPW
{
uint32_t ftrap_set_font_info(uint32_t name, uint32_t parm)
{
// set_font_info(const char *name, uint32_t fontSize);
std::string sname = ToolBox::ReadCString(name, true);
uint32_t fontSize = parm;
Log(" set_font_info(%s, %04x)\n", sname.c_str(), fontSize);
return 0x40000000 | kEINVAL;
}
uint32_t ftrap_get_font_info(uint32_t name, uint32_t parm)
{
// get_font_info(const char *name, uint32 *fontSize)
std::string sname = ToolBox::ReadCString(name, true);
Log(" get_font_info(%s, %04x)\n", sname.c_str(), parm);
// default to 9pt
if (parm) memoryWriteLong(9, parm);
return 0;
}
uint32_t ftrap_get_tab_info(uint32_t name, uint32_t parm)
{
// get_tab_info(const char *name, uint32_t *tabSize)
@ -231,6 +259,15 @@ namespace MPW
case kF_STABINFO:
d0 = ftrap_set_tab_info(name, parm);
break;
case kF_GFONTINFO:
d0 = ftrap_get_font_info(name, parm);
break;
case kF_SFONTINFO:
d0 = ftrap_set_font_info(name, parm);
break;
default:
d0 = 0x40000000 | kEINVAL;