XTkCommon.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, April 7, 1992 10:44:58 am PDT
Christian Jacobi, April 7, 1992 11:17 am PDT
DIRECTORY
Rope USING [ROPE],
Xl USING [Font, nullFont, Size];
XTkCommon: CEDAR DEFINITIONS
~ BEGIN
StyleSpec: TYPE = RECORD [
space: Xl.Size ¬ [-1, -1],
font: Xl.Font ¬ Xl.nullFont,
styleKey: ATOM ¬ NIL --possible styles [see also doc]: NIL, $WhiteOnBlack
];
queryDBFont: READONLY Xl.Font;
Special font which makes sense in StyleSpec's.
This "Font" can not be used for drawing.
RepaintMode: TYPE = {dont, delayed, immediately};
Parameter used in procedures modifying certain widgets to specify optional repaint.
ChoiceElement: TYPE = RECORD [text: Rope.ROPE, callData: REF ANY ¬ NIL];
Type used by some simple kind of choice widgets 
END.