<> <> <> <> <> <<>> DIRECTORY AdjustColor USING [TRC], ViewerClasses USING [Viewer, ViewerRec]; AISTRCViewers: CEDAR DEFINITIONS ~ { OPEN V: ViewerClasses; AISTRCViewer: TYPE ~ V.Viewer; --A viewer TRC: TYPE ~ AdjustColor.TRC; Mark: TYPE ~ RECORD [range, domain: CARDINAL]; Create: PROC [info: V.ViewerRec _ [], paint: BOOL _ TRUE, clientData: REF ANY _ NIL] RETURNS [aisTRCViewer: AISTRCViewer]; <> IllegalOp: ERROR; --Generated by the ViewerClasses.Set and ViewerClasses.Get Set: PROC [viewer: AISTRCViewer, trc: REF TRC] ~ INLINE { viewer.class.set[self: viewer, data: trc, op: $TRC]; }; <> Get: PROC [viewer: AISTRCViewer] RETURNS [trc: REF TRC] ~ INLINE { RETURN[NARROW[viewer.class.get[self: viewer, op: $TRC]]]; }; <> <<>> }. <> <> <> <<$TRC TRC>> <<$Marks LIST OF MARK>>