ButtonsPrivate.mesa
Copyright Ó 1990, 1991 by Xerox Corporation. All rights reserved.
Philip James, March 20, 1990 11:07 am PST
DIRECTORY
Buttons USING [ButtonProc],
Imager USING [Font],
ViewerClasses USING [GuardState];
ButtonsPrivate: CEDAR DEFINITIONS = {
OPEN Buttons;
ButtonData: TYPE = REF ButtonDataRec;
ButtonDataRec: TYPE = MONITORED RECORD [
proc: ButtonProc,
font: Imager.Font,
clientData: REF ANY,
documentation: REF ANY,
greyCount: INTEGER ¬ 0,
displayStyle: DisplayStyle ¬ blackOnWhite,
inverted: BOOL ¬ FALSE,
fork: BOOL,
guarded: BOOL,
state: ViewerClasses.GuardState
];
DisplayStyle: TYPE = {blackOnWhite, whiteOnBlack, blackOnGrey};
}...