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}; }... Š ButtonsPrivate.mesa Copyright Σ 1990, 1991 by Xerox Corporation. All rights reserved. Philip James, March 20, 1990 11:07 am PST ΚC•NewlineDelimiter –(cedarcode) style™™Jšœ Οeœ7™BJ™)J™—code˜šΟk ˜ Kšœžœ˜Kšœžœ˜Kšœžœ˜!——K˜šΡblnœžœž œ˜&Kšžœ ˜ —˜Kšœ žœžœ˜%šœžœž œžœ˜(K˜K˜Kšœ žœžœ˜Kšœžœžœ˜Kšœ žœ˜K˜*Kšœ žœžœ˜Kšœžœ˜ Kšœ žœ˜K˜K˜—K˜Kšœžœ-˜?K˜K˜——…—γ