PieViewers.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation. All rights reserved.
Michael Plass, November 2, 1982 10:52 am
Last Edited by: Beach, May 24, 1983 9:13 am
Doug Wyatt, March 28, 1985 9:06:51 pm PST
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.