Rules.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Edited by McGregor on June 2, 1982 1:48 pm
Last Edited by: Maxwell, December 17, 1982 10:07 am
Doug Wyatt, March 29, 1985 2:34:13 pm PST
DIRECTORY
Imager USING [Color],
ViewerClasses USING [Viewer, ViewerRec];
A rule is a rectangle (viewer) of uniform color, good for simple graphics when creating tools.
Rules: CEDAR DEFINITIONS
= BEGIN OPEN ViewerClasses;
Rule: TYPE = Viewer;
Create: PROC [info: ViewerRec, color: Imager.Color ← NIL, paint: BOOLTRUE]
RETURNS
[rule: Rule];
Creates a Rule; the default color is black.
Destroy: PROC [rule: Rule];
SetColor: PROC [rule: Rule, color: Imager.Color, paint: BOOLTRUE];
END.