DIRECTORY Graphics USING [Color, black], ViewerOps USING [DestroyViewer], ViewerClasses USING [Viewer, ViewerRec]; Rules: CEDAR DEFINITIONS IMPORTS ViewerOps = BEGIN OPEN ViewerClasses; Rule: TYPE = Viewer; Create: PROC [info: ViewerRec, color: Graphics.Color _ Graphics.black, paint: BOOL _ TRUE] RETURNS [rule: Rule] ; Destroy: PROC [rule: Rule] = INLINE {ViewerOps.DestroyViewer[rule]}; Set: PROC [rule: Rule, data: REF Graphics.Color, paint: BOOL _ TRUE] = INLINE {rule.class.set[rule, data, paint]}; END. าRules.mesa; Edited by McGregor on June 2, 1982 1:48 pm Last Edited by: Maxwell, December 17, 1982 10:07 am A rule is a rectangle (viewer) of uniform color, good for simple graphics when creating tools. ส– "Mesa" style˜Jšฯc6™6Jšœ3™3J™šฯk ˜ Jšœ žœ˜Jšœ žœ˜ Jšœžœ˜(J˜—Jš œžœžœ žœžœ˜FJ˜Jšœžœ ˜J˜Jš^™^J˜šฯnœžœBžœžœ˜ZJšžœ˜J˜—JšŸœžœžœ!˜DJ˜š Ÿœžœžœžœžœž˜MJ˜$J˜J˜—Jšžœ˜J˜J˜—…— เ