<<>> <> <> <> <> DIRECTORY Imager USING [Font], ViewerClasses USING [Viewer, ViewerRec]; NumberLabels: CEDAR DEFINITIONS ~ BEGIN 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]; END.