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