Labels.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Edited by McGregor on June 2, 1982 2:51 pm
Last Edited by: Maxwell, December 17, 1982 10:08 am
Doug Wyatt, March 29, 1985 2:34:38 pm PST
=
BEGIN
OPEN ViewerClasses;
Label: TYPE = Viewer;
Create:
PROC [info: ViewerRec ← [],
font: Imager.Font ←
NIL,
paint:
BOOL ←
TRUE
]
RETURNS [label: Label];
Pass the label contents in info.name.
Default info.ww, info.wh to get an aesthetic value based on label size.
Destroy: PROC [label: Label];
Set: PROC [label: Label, value: Rope.ROPE, paint: BOOL ← TRUE];
SetDisplayStyle:
PROC [label: Label, style:
ATOM, paint:
BOOL ←
TRUE];
Recognised display styles are:
$BlackOnWhite - black letters on white background (default)
$WhiteOnBlack - white letters on black background
$BlackOnGrey - black letters on grey background