<> <> <> <> 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]; }.