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