<> <> <> <<>> DIRECTORY Imager USING [Color, black], ViewerOps USING [DestroyViewer], ViewerClasses USING [Viewer, ViewerRec]; Rules: CEDAR DEFINITIONS IMPORTS Imager, ViewerOps = BEGIN OPEN ViewerClasses; Rule: TYPE = Viewer; <> Create: PROC [info: ViewerRec, color: Imager.Color _ Imager.black, paint: BOOL _ TRUE] RETURNS [rule: Rule] ; Destroy: PROC [rule: Rule] = INLINE {ViewerOps.DestroyViewer[rule]}; Set: PROC [rule: Rule, data: REF Imager.Color, paint: BOOL _ TRUE] = INLINE {rule.class.set[rule, data, paint]}; END.