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