<> <> <> <> <> <<>> DIRECTORY Imager USING [Font], Rope USING [ROPE], ViewerClasses USING [Viewer, ViewerRec]; Labels: CEDAR DEFINITIONS = BEGIN OPEN ViewerClasses; Label: TYPE = Viewer; Create: PROC [info: ViewerRec _ [], font: Imager.Font _ NIL, paint: BOOL _ TRUE ] RETURNS [label: Label]; <> <> Destroy: PROC [label: Label]; Set: PROC [label: Label, value: Rope.ROPE, paint: BOOL _ TRUE]; SetDisplayStyle: PROC [label: Label, 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.