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. œ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 Κ+– "cedar" style˜Jšœ+™+Jšœ%™%Jšœ ™ Jšœ!™!J˜šΟk ˜ Jšœœœ˜!Jšœœ˜(J˜—Jšœ˜Jšœ˜Jšœ˜J˜šœ œ˜)J˜—šΟn œœœ$˜=Jšœœœ˜&Jšœ œœœ˜;Jšœœ˜ J˜—šžœœœœ˜?J˜—š žœœœœ œ˜KJ˜—Jšœ˜J˜J˜J˜J˜—…—έ