<> <> <> <> DIRECTORY Cursors USING [CursorType], GriffinKernel USING [Data], Imager USING [Context], ViewerClasses USING [Viewer]; GriffinViewer: CEDAR DEFINITIONS = BEGIN Cursor: TYPE = {pointingCursor, busyCursor, menuCursor, abortCursor}; PaintProc: TYPE = PROC [dc: Imager.Context]; SetCursor: PROC [cursor: Cursor]; GetPointingCursor: PROC RETURNS [Cursors.CursorType]; SetNewVersion: PROC [data: GriffinKernel.Data]; DoPaint: PROC [viewer: ViewerClasses.Viewer, action: PaintProc]; END.