<<>> <> <> <> <<>> 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}; }...