<> <> <> <<>> DIRECTORY ViewerOps USING [CreateViewer], ViewerClasses USING [Viewer, ViewerRec]; Containers: CEDAR DEFINITIONS IMPORTS ViewerOps = BEGIN OPEN ViewerClasses; Container: TYPE = Viewer; <> Create: PROC [info: ViewerRec _ [], paint: BOOL _ TRUE] RETURNS [container: Container] = INLINE {RETURN[ViewerOps.CreateViewer[$Container, info, paint]]}; <> ChildYBound: PROC [container: Container, child: Viewer] = INLINE {container.class.set[self: container, data: child, op: $YBound]} ; <> ChildXBound: PROC [container: Container, child: Viewer] = INLINE {container.class.set[self: container, data: child, op: $XBound]} ; <> ScrollOffset: PROC [container: Container] RETURNS [offTop: INTEGER] ; <> <> END.