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
=
BEGIN
OPEN ViewerClasses;
Rule: TYPE = Viewer;
Create:
PROC [info: ViewerRec, color: Imager.Color ←
NIL, paint:
BOOL ←
TRUE]
RETURNS [rule: Rule];
Creates a Rule; the default color is black.
Destroy: PROC [rule: Rule];
SetColor:
PROC [rule: Rule, color: Imager.Color, paint:
BOOL ←
TRUE];