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