NumberLabels.mesa; Written by Russ Atkinson
Russ Atkinson, March 31, 1983 4:19 pm
McGregor, July 21, 1983 10:59 am
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: BOOL ← TRUE] RETURNS [nl: NumberLabel ← NIL];
NumberLabelUpdate:
PUBLIC
PROC [nl: NumberLabel, new:
INT ← 0];
NumberLabelQuery:
PUBLIC
PROC [nl: NumberLabel]
RETURNS [current:
INT ← 0];
END.