DIRECTORY Histograms, IO, Rope, ViewerClasses; HistogramsViewing: CEDAR DEFINITIONS = {OPEN Histograms; Viewer: TYPE ~ ViewerClasses.Viewer; Show: PROC [ h: Histogram, viewerInit: ViewerClasses.ViewerRec _ [], format: ROPE _ NIL, --NIL means "%d" width: NAT _ 0, --max number of chars produced when formatting base: REAL _ 0.0, --base>1 means display count logarithmicly updatePeriod: REAL _ -1.0, --If > 0, every updatePeriod seconds the viewer is repainted if it's out of date. If updatePeriod=0, the viewer is painted every time something changes. If updatePeriod<0, the viewer is never automatically repainted. paint: BOOL _ TRUE] RETURNS [Viewer]; ViewerWrite: PROC [v: Viewer, to: IO.STREAM, create, show, data: BOOL]; }. πHistogramsViewing.Mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last tweaked by Mike Spreitzer on June 28, 1988 3:27:07 pm PDT This interface provides Views&Controllers for Histogram Models. display it in a viewer Κ˜codešœ™Kšœ Οmœ1™—K˜K™?K˜KšΟk œ žœ˜.K˜KšΡbnxœžœž œžœ ˜8K˜Kšœžœ˜$K˜šΟnœžœ˜ Kšœ ˜ Kšœ)˜)KšœžœžœΟc˜$Kšœžœ‘.˜>Kšœžœ‘*˜