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