Tcl/Tk Example
Create a simple button:
button .b -text Hello! -font {Times 16} \ -command {puts hello}
Microsoft Foundation Classes require 25 lines. Code for setting the font:
CFont *fontPtr = new CFont(); fontPtr->CreateFont(16, 0, 0, 0, 700, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH|FF_DONTCARE, “Times New Roman”); buttonPtr->SetFont(fontPtr);