<> <> <> <> <<>> <> DIRECTORY CoreGeometry USING [CellType, Decoration, Rect], ViewerClasses USING [Viewer], ViewerOps USING [DestroyViewer]; CoreView: CEDAR DEFINITIONS IMPORTS ViewerOps ~ BEGIN CoreCell: TYPE ~ CoreGeometry.CellType; Layout: TYPE ~ CoreGeometry.Decoration; Rect: TYPE ~ CoreGeometry.Rect; Viewer: TYPE ~ ViewerClasses.Viewer; GeometryView: PROC [cell: CoreCell, geom: Layout, abortFlag: REF BOOL] RETURNS [viewer: Viewer]; <> StartIncrementalView: PROC [cell: CoreCell, geom: Layout, abortFlag: REF BOOL] RETURNS [viewer: Viewer]; <> DestroyView: PROC [viewer: Viewer] ~ INLINE {ViewerOps.DestroyViewer [viewer]}; AddRectangle: PROC [viewer: Viewer, rect: Rect, label: REF ANY]; <> debugViewer: Viewer <> END.