<> <> <> <> <> <<>> DIRECTORY ViewerClasses USING [Viewer, ViewerRec]; <> Containers: CEDAR DEFINITIONS = BEGIN OPEN ViewerClasses; Container: TYPE = Viewer; Create: PROC [info: ViewerRec _ [], paint: BOOL _ TRUE] RETURNS [container: Container]; <> ChildYBound: PROC [container: Container, child: Viewer]; <> ChildXBound: PROC [container: Container, child: Viewer]; <> ScrollOffset: PROC [container: Container] RETURNS [offTop: INTEGER]; <> END.