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]} ;END.  ¼  Labels.mesa; Written by S. McGregorLast Edited by: McGregor, July 21, 1983 10:58 amLast Edited by: Maxwell, December 17, 1982 10:08 amPass the label contents in info.name.  Default info.ww, info.wh to get an aesthetic value based on label size.Recognised display styles are:$BlackOnWhite	- black letters on white background (default)$WhiteOnBlack	- white letters on black background$BlackOnGrey	- black letters on grey backgroundÊ{  –"cedar" style˜ JšÏc#™#Jšœ!™0Jšœ3™3J™ šÏk	˜	Jšœžœžœ˜Jšœžœ˜!Jšœ
žœ˜ Jšœžœ˜(J˜ —Jš	œžœžœžœžœ˜OJ˜ Jšœžœ
˜J˜ šÏnœžœGžœžœ˜_Jšžœ˜Jšn™nJ˜ —JšŸœžœžœ"˜GJ˜ šŸœžœžœ	žœžœž˜GJ˜'J˜ —š	Ÿœžœžœžœž˜<Jšœžœ˜J˜ —šŸœžœžœ	žœžœž˜NJ˜7Jš™Jš;™;Jš1™1Jš/™/J˜ —Jšžœ˜J˜ J˜ — …—    
  A  