<> <> <> <> <> <<>> DIRECTORY Imager USING [Font], Menus USING [ClickProc], Rope USING [ROPE], ViewerClasses USING [Viewer, ViewerRec]; <> <<>> Buttons: CEDAR DEFINITIONS = BEGIN OPEN ViewerClasses; Button: TYPE = Viewer; ButtonProc: TYPE = Menus.ClickProc; Create: PROC [info: ViewerRec _ [], proc: ButtonProc, clientData: REF ANY _ NIL, fork: BOOL _ TRUE, font: Imager.Font _ NIL, documentation: REF ANY _ NIL, guarded: BOOL _ FALSE, paint: BOOL _ TRUE ] RETURNS [button: Button]; <> <> < CONTINUE catch phrase so that the client may make use of Process.Abort to cancel execution. If fork=FALSE then proc will be called at Process.priorityForeground!>> Destroy: PROC [button: Button]; ReLabel: PROC [button: Button, newName: Rope.ROPE, paint: BOOL _ TRUE]; <> SetDisplayStyle: PROC [button: Button, style: ATOM, paint: BOOL _ TRUE]; <> <<$BlackOnWhite - black letters on white background (default)>> <<$WhiteOnBlack - white letters on black background>> <<$BlackOnGrey - black letters on grey background>> END.