<> <> <> <<>> DIRECTORY ViewerClasses USING [Viewer]; Carets: CEDAR DEFINITIONS = BEGIN StartCaret: PROC [viewer: ViewerClasses.Viewer, x, y: INTEGER, id: CaretId] ; StopCaret: PROC [id: CaretId]; SuspendCarets: PROC ; ResumeCarets: PROC ; CaretId: TYPE = {primary, secondary} _ primary ; pCaretViewer, sCaretViewer: ViewerClasses.Viewer; END.