Fonts
The font used by certain widgets can be specified by the application. The following widgets allow their font to be changed: CwLabel, CwPushButton, CwToggleButton, CwCascadeButton, CwText, CwList, CwComboBox, and CwScale. The font is changed using the fontList: method. The font to use is specified by a CwFontList object. 
To create a 
CwFontList, the 
fontStruct: class method of 
CwFontList is passed a 
CgFontStruct describing a Common Graphics font. A 
CgFontStruct can be loaded using the 
loadQueryFont: method of 
CgDisplay. For further details on fonts, consult 
"Using fonts". 
The following code creates a multiline text widget and sets its font to the monospaced font named '8x13.' 
| shell fontStruct fontList text |
shell := CwTopLevelShell
   createApplicationShell: 'shell'
   argBlock: [:w | w title: 'Font List Example'].
fontStruct := shell display loadQueryFont: '8x13'.
fontList := CwFontList fontStruct: fontStruct.
 
text := shell
   createText: 'text'
   argBlock: [:w | w
      editMode: XmMULTILINEEDIT;
      fontList: fontList].
text setString: 'This text is displayed using the 8x13 font.'.
text manageChild.
 
shell realizeWidget
Last modified date: 01/29/2015