<<>> <> <> <> <> <> <<>> 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.