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