Carets.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Edited by McGregor on June 3, 1982 10:51 am
Last Edited by: Maxwell, December 17, 1982 10:05 am
Doug Wyatt, April 3, 1985 10:24:05 am PST
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.