NumberLabels.mesa
Russ Atkinson, March 31, 1983 4:19 pm
DIRECTORY
VFonts USING [defaultFont, Font],
ViewerClasses USING [Viewer, ViewerRec];
NumberLabels: CEDAR DEFINITIONS IMPORTS VFonts = BEGIN
NumberLabel: TYPE = ViewerClasses.Viewer;
CreateNumber: PUBLIC PROC
[info: ViewerClasses.ViewerRec ← [], chars: NAT ← 0, initialValue: INT ← 0, font: VFonts.Font ← VFonts.defaultFont, paint: BOOLTRUE] RETURNS [nl: NumberLabel ← NIL];
NumberLabelUpdate: PUBLIC PROC [nl: NumberLabel, new: INT ← 0];
NumberLabelQuery: PUBLIC PROC [nl: NumberLabel] RETURNS [current: INT ← 0];
END.