<> <> <> <<>> DIRECTORY Rope USING [ROPE], VFonts USING [defaultFont, Font], ViewerOps USING [DestroyViewer], ViewerClasses USING [Viewer, ViewerRec]; Labels: CEDAR DEFINITIONS IMPORTS VFonts, ViewerOps = BEGIN OPEN ViewerClasses; Label: TYPE = Viewer; Create: PROC [info: ViewerRec _ [], font: VFonts.Font _ VFonts.defaultFont, paint: BOOL _ TRUE] RETURNS [label: Label] ; <> Destroy: PROC [label: Label] = INLINE {ViewerOps.DestroyViewer[label]}; Set: PROC [label: Label, value: Rope.ROPE, paint: BOOL _ TRUE] = INLINE {label.class.set[label, value, paint]}; Get: PROC [label: Label] RETURNS [value: Rope.ROPE] = INLINE {RETURN[label.name]}; SetDisplayStyle: PROC [label: Label, style: ATOM, paint: BOOL _ TRUE] = INLINE {label.class.set[label, style, paint, $DisplayStyle]} ; <> <<$BlackOnWhite - black letters on white background (default)>> <<$WhiteOnBlack - white letters on black background>> <<$BlackOnGrey - black letters on grey background>> END.