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