<> <> <> 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.