<> <> <> <> <> <<>> DIRECTORY Imager USING [Color], ViewerClasses USING [Viewer, ViewerRec]; <> Rules: CEDAR DEFINITIONS = BEGIN OPEN ViewerClasses; Rule: TYPE = Viewer; Create: PROC [info: ViewerRec, color: Imager.Color _ NIL, paint: BOOL _ TRUE] RETURNS [rule: Rule]; <> <<>> Destroy: PROC [rule: Rule]; SetColor: PROC [rule: Rule, color: Imager.Color, paint: BOOL _ TRUE]; END.