Copyright © 1985 by Xerox Corporation. All rights reserved.

Russ Atkinson, March 31, 1983 4:19 pm

Doug Wyatt, April 14, 1985 11:05:03 pm PST

Imager USING [Font],

ViewerClasses USING [Viewer, ViewerRec];

NumberLabel: TYPE ~ ViewerClasses.Viewer;

CreateNumber: PROC [
info: ViewerClasses.ViewerRec ← [],
chars: NAT ← 0,
initialValue: INT ← 0,
font: Imager.Font ← NIL,
paint: BOOL ← TRUE
] RETURNS [NumberLabel];

NumberLabelUpdate: PROC [nl: NumberLabel, new: INT ← 0];

NumberLabelQuery: PROC [nl: NumberLabel] RETURNS [current: INT ← 0];