<> <> <> DIRECTORY ViewerClasses USING [Viewer]; PieViewers: CEDAR DEFINITIONS = BEGIN PieViewer: TYPE = ViewerClasses.Viewer; Create: PROC [ parent: ViewerClasses.Viewer, -- the containing viewer x, y: INTEGER _ 0, -- location within the parent viewer diameter: INTEGER _ 16, -- diameter of the pie chart total: REAL _ 100, -- number of units in the whole pie divisions: NAT _ 25 -- the granularity of the display ] RETURNS [pieViewer: PieViewer]; Set: PROC [pieViewer: PieViewer, amount: REAL]; END. Michael Plass, November 2, 1982 10:52 am. CEDARized.