PieViewers.mesa
Copyright © 1985 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.