void TekSetFontSize (newitem) int newitem;
void TekSetFontSize (int newitem)
void TekSetFontSize (newitem)    int newitem;{    register TScreen *screen = &term->screen;    int oldsize = screen->cur.fontsize;    int newsize = MI2FS(newitem);    Font fid;        if (!tekWidget  ||  oldsize == newsize)	return;    if (!Ttoggled) TCursorToggle(TOGGLE);    set_tekfont_menu_item (oldsize, FALSE);    fid = tekWidget->tek.Tfont[newsize]->fid;    if (fid == DefaultGCID)        /* we didn't succeed in opening a real font	  for this size.  Instead, use server default. */       XCopyGC (screen->display,		DefaultGC(screen->display, DefaultScreen(screen->display)),		GCFont, screen->TnormalGC);    else       XSetFont (screen->display, screen->TnormalGC, fid);    screen->cur.fontsize = newsize;    set_tekfont_menu_item (newsize, TRUE);    if (!Ttoggled) TCursorToggle(TOGGLE);}