Copyright Ó 1985, 1986, 1991 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];