static struct rfb_FontQueryNode *fnt_getfqnode(struct rfb_Display *mod,
TSTRPTR filename, TINT pxsize)
{
struct rfb_FontQueryNode *fqnode = TNULL;
TAPTR TExecBase = TGetExecBase(mod);
/* allocate fquery node */
fqnode = TAlloc0(mod->rfb_MemMgr, sizeof(struct rfb_FontQueryNode));
if (fqnode)
{
/* fquerynode ready - fill in attributes */
TSTRPTR myfname = TNULL;
TINT flen = strlen(filename) - 4; /* discard '.ttf' */
if (flen > 0)
myfname = TAlloc0(mod->rfb_MemMgr, flen + 1);
else
TDBPRINTF(20, ("found invalid font: '%s'\n", filename));
if (myfname)
{
memcpy(myfname, filename, flen);
fqnode->tags[0].tti_Tag = TVisual_FontName;
fqnode->tags[0].tti_Value = (TTAG) myfname;
}
else
{
if (flen > 0)
TDBPRINTF(20, ("out of memory :(\n"));
}
if (fqnode->tags[0].tti_Value)
{
TINT i = 1;
fqnode->tags[i].tti_Tag = TVisual_FontPxSize;
fqnode->tags[i++].tti_Value = (TTAG) pxsize;
/* always true */
fqnode->tags[i].tti_Tag = TVisual_FontScaleable;
fqnode->tags[i++].tti_Value = (TTAG) TTRUE;
fqnode->tags[i].tti_Tag = TTAG_DONE;
}
else
{
TFree(fqnode);
fqnode = TNULL;
}
} /* endif fqnode */
else
TDBPRINTF(20, ("out of memory :(\n"));
return fqnode;
}
static void fnt_getfnnodes(struct rfb_Display *mod, struct TList *fnlist,
TSTRPTR fname)
{
TINT i, p = 0;
TBOOL lastrun = TFALSE;
TINT fnlen = strlen(fname);
TAPTR TExecBase = mod->rfb_ExecBase;
for (i = 0; i < fnlen; i++)
{
if (i == fnlen - 1)
lastrun = TTRUE;
if (fname[i] == ',' || lastrun)
{
TINT len = (i > p) ? (lastrun ? (i - p + 1) : (i - p)) : fnlen + 1;
TSTRPTR ts = TAlloc0(mod->rfb_MemMgr, len + 1);
if (ts)
{
struct fnt_node *fnn;
memcpy(ts, fname + p, len);
fnn = TAlloc0(mod->rfb_MemMgr, sizeof(struct fnt_node));
if (fnn)
{
/* add fnnode to fnlist */
fnn->fname = ts;
TAddTail(fnlist, &fnn->node);
}
else
{
TDBPRINTF(20, ("out of memory :(\n"));
break;
}
}
else
{
TDBPRINTF(20, ("out of memory :(\n"));
break;
}
p = i + 1;
}
}
}
static struct LuaTaskArgs *tek_lib_exec_getargs(lua_State *L,
struct TExecBase *TExecBase, int first, int narg, int extra)
{
struct LuaTaskArgs *args = TNULL;
if (narg + extra > 0)
{
int i;
args = TAlloc0(TNULL, sizeof(struct LuaTaskArgs) * (narg + extra));
if (args == TNULL)
luaL_error(L, "out of memory");
for (i = 0; i < extra; ++i)
tek_lib_exec_allocarg(L, TExecBase, i - extra, &args[i]);
for (i = extra; i < narg + extra; ++i)
tek_lib_exec_allocarg(L, TExecBase, first + i - extra, &args[i]);
}
return args;
}
LOCAL void
fb_openwindow(WINDISPLAY *mod, struct TVRequest *req)
{
struct TExecBase *TExecBase = TGetExecBase(mod);
TTAGITEM *tags = req->tvr_Op.OpenWindow.Tags;
WINWINDOW *win;
req->tvr_Op.OpenWindow.Window = TNULL;
for (;;)
{
RECT wrect;
BITMAPINFOHEADER *bmi;
TUINT style;
TUINT exstyle;
TIMSG *imsg;
const char *classname;
TSTRPTR title;
win = TAlloc0(mod->fbd_MemMgr, sizeof(WINWINDOW));
if (win == TNULL)
break;
TInitList(&win->penlist);
InitializeCriticalSection(&win->fbv_LockExtents);
win->fbv_Width = (TUINT) TGetTag(tags, TVisual_Width, FB_DEF_WIDTH);
win->fbv_Height = (TUINT) TGetTag(tags, TVisual_Height, FB_DEF_HEIGHT);
win->fbv_Left = (TUINT) TGetTag(tags, TVisual_WinLeft, 0xffffffff);
win->fbv_Top = (TUINT) TGetTag(tags, TVisual_WinTop, 0xffffffff);
win->fbv_Title = (TSTRPTR) TGetTag(tags, TVisual_Title,
(TTAG) "TEKlib Visual");
win->fbv_Borderless = TGetTag(tags, TVisual_Borderless, TFALSE);
win->fbv_UserData = TGetTag(tags, TVisual_UserData, TNULL);
win->fbv_MinWidth = (TINT) TGetTag(tags, TVisual_MinWidth, (TTAG) -1);
win->fbv_MinHeight = (TINT) TGetTag(tags, TVisual_MinHeight, (TTAG) -1);
win->fbv_MaxWidth = (TINT) TGetTag(tags, TVisual_MaxWidth, (TTAG) -1);
win->fbv_MaxHeight = (TINT) TGetTag(tags, TVisual_MaxHeight, (TTAG) -1);
if (win->fbv_Borderless)
{
style = (WS_POPUP | WS_CLIPCHILDREN | WS_CLIPSIBLINGS) & ~WS_BORDER;
classname = FB_DISPLAY_CLASSNAME_POPUP;
title = NULL;
exstyle = WS_EX_TOPMOST | WS_EX_TOOLWINDOW;
}
else
{
style = WS_OVERLAPPEDWINDOW;
classname = FB_DISPLAY_CLASSNAME;
title = win->fbv_Title;
exstyle = 0;
}
wrect.left = wrect.right = wrect.top = wrect.bottom = 0;
AdjustWindowRectEx(&wrect, style, FALSE, exstyle);
win->fbv_BorderWidth = wrect.right - wrect.left;
win->fbv_BorderHeight = wrect.bottom - wrect.top;
win->fbv_BorderLeft = -wrect.left;
win->fbv_BorderTop = -wrect.top;
if (!win->fbv_Borderless)
{
TINT m1, m2, m3, m4;
win_getminmax(win, &m1, &m2, &m3, &m4, TTRUE);
win->fbv_Width = TCLAMP(m1, (TINT) win->fbv_Width, m3);
win->fbv_Height = TCLAMP(m2, (TINT) win->fbv_Height, m4);
}
if (win->fbv_Left != 0xffffffff && win->fbv_Top != 0xffffffff)
{
wrect.left = win->fbv_Left;
wrect.top = win->fbv_Top;
wrect.right = win->fbv_Left + win->fbv_Width;
wrect.bottom = win->fbv_Top + win->fbv_Height;
if (!AdjustWindowRectEx(&wrect, style, FALSE, exstyle))
break;
win->fbv_Left = wrect.left;
win->fbv_Top = wrect.top;
win->fbv_HWnd = CreateWindowEx(exstyle, classname,
title, style, win->fbv_Left, win->fbv_Top,
wrect.right - wrect.left - win->fbv_BorderWidth,
wrect.bottom - wrect.top - win->fbv_BorderHeight,
(HWND) NULL, (HMENU) NULL, mod->fbd_HInst, (LPVOID) NULL);
}
else
{
win->fbv_HWnd = CreateWindowEx(exstyle, classname,
title, style, CW_USEDEFAULT, CW_USEDEFAULT,
win->fbv_Width, win->fbv_Height,
(HWND) NULL, (HMENU) NULL, mod->fbd_HInst, (LPVOID) NULL);
}
if (win->fbv_HWnd == TNULL)
break;
GetWindowRect(win->fbv_HWnd, &wrect);
win->fbv_Left = wrect.left + win->fbv_BorderLeft;
win->fbv_Top = wrect.top + win->fbv_BorderHeight;
win->fbv_Width = wrect.right - wrect.left - win->fbv_BorderWidth;
win->fbv_Height = wrect.bottom - wrect.top - win->fbv_BorderHeight;
SetWindowLongPtr(win->fbv_HWnd, GWLP_USERDATA, (LONG_PTR) win);
win->fbv_HDC = GetDC(win->fbv_HWnd);
win->fbv_Display = mod;
win->fbv_InputMask = (TUINT) TGetTag(tags, TVisual_EventMask, 0);
win->fbv_IMsgPort = req->tvr_Op.OpenWindow.IMsgPort;
bmi = &win->fbv_DrawBitMap;
bmi->biSize = sizeof(BITMAPINFOHEADER);
bmi->biPlanes = 1;
bmi->biBitCount = 32;
bmi->biCompression = BI_RGB;
bmi->biSizeImage = 0;
bmi->biXPelsPerMeter = 1;
bmi->biYPelsPerMeter = 1;
bmi->biClrUsed = 0;
bmi->biClrImportant = 0;
TInitList(&win->fbv_IMsgQueue);
req->tvr_Op.OpenWindow.Window = win;
/* init default font */
win->fbv_CurrentFont = mod->fbd_FontManager.deffont;
mod->fbd_FontManager.defref++;
if (win->fbv_InputMask & TITYPE_INTERVAL)
++mod->fbd_NumInterval;
/* register default font */
/*TDBPRINTF(TDB_TRACE,("Add window: %p\n", win->window));*/
/* add window on top of window stack: */
TAddHead(&mod->fbd_VisualList, &win->fbv_Node);
SetBkMode(win->fbv_HDC, TRANSPARENT);
ShowWindow(win->fbv_HWnd, SW_SHOWNORMAL);
UpdateWindow(win->fbv_HWnd);
if ((win->fbv_InputMask & TITYPE_FOCUS) &&
(fb_getimsg(mod, win, &imsg, TITYPE_FOCUS)))
{
imsg->timsg_Code = 1;
TAddTail(&win->fbv_IMsgQueue, &imsg->timsg_Node);
}
if ((win->fbv_InputMask & TITYPE_REFRESH) &&
(fb_getimsg(mod, win, &imsg, TITYPE_REFRESH)))
{
imsg->timsg_X = 0;
imsg->timsg_Y = 0;
imsg->timsg_Width = win->fbv_Width;
imsg->timsg_Height = win->fbv_Height;
TAddTail(&win->fbv_IMsgQueue, &imsg->timsg_Node);
}
return;
}
TDBPRINTF(TDB_ERROR,("Window open failed\n"));
fb_closeall(mod, win, TFALSE);
}
LOCAL TAPTR fb_hostqueryfonts(WINDISPLAY *mod, TTAGITEM *tags)
{
struct TExecBase *TExecBase = TGetExecBase(mod);
TSTRPTR names;
LOGFONT logfont;
char *namebuf = logfont.lfFaceName;
struct FontQueryHandle *fqh;
fqh = TAlloc0(TNULL, sizeof(struct FontQueryHandle));
if (fqh == TNULL)
return TNULL;
fqh->handle.thn_Owner = mod;
TInitHook(&fqh->handle.thn_Hook, fqhdestroy, fqh);
TInitList(&fqh->reslist);
fqh->fpxsize = (TINT) TGetTag(tags, TVisual_FontPxSize, (TTAG) FNTQUERY_UNDEFINED);
fqh->fitalic = (TBOOL) TGetTag(tags, TVisual_FontItalic, (TTAG) FNTQUERY_UNDEFINED);
fqh->fbold = (TBOOL) TGetTag(tags, TVisual_FontBold, (TTAG) FNTQUERY_UNDEFINED);
fqh->fscale = (TBOOL) TGetTag(tags, TVisual_FontScaleable, (TTAG) FNTQUERY_UNDEFINED);
fqh->fnum = (TINT) TGetTag(tags, TVisual_FontNumResults, (TTAG) INT_MAX);
fqh->success = TTRUE;
names = (TSTRPTR) TGetTag(tags, TVisual_FontName, TNULL);
if (names == TNULL)
names = "";
for (;;)
{
TSTRPTR p = strchr(names, ',');
if (p)
{
size_t len2 = TMIN(p - names, LF_FACESIZE - 1);
memcpy(namebuf, names, len2);
namebuf[len2] = 0;
names += p - names + 1;
}
else
{
size_t len = strlen(names);
size_t len2 = TMIN(len, LF_FACESIZE - 1);
memcpy(namebuf, names, len2);
namebuf[len2] = 0;
names += len;
}
logfont.lfCharSet = ANSI_CHARSET;
logfont.lfPitchAndFamily = 0;
TDBPRINTF(TDB_INFO,("query font: %s\n", namebuf));
if (strcmp(namebuf, "") == 0)
fqh->match_depth = 0; /* find font first */
else
fqh->match_depth = 1; /* find style */
EnumFontFamiliesEx(
mod->fbd_DeviceHDC,
&logfont,
(FONTENUMPROCA) fontenumcb,
(LPARAM) fqh, 0);
if (strlen(names) == 0)
break;
}
fqh->nptr = &fqh->reslist.tlh_Head;
if (fqh->success)
return fqh;
TDestroy(&fqh->handle);
return TNULL;
}
