-- TEditOps.mesa, Edited by Paxton on October 28, 1982 11:46 am
DIRECTORY
Rope USING [ROPE],
TEditDocument USING [Selection],
TextNode USING [Location],
ViewerClasses USING [Viewer];
TEditOps: CEDAR DEFINITIONS =
BEGIN
------ Selections and their contents ------
GetSelContents: PROC RETURNS [contents: Rope.ROPE];
GetSelData: PROC [primary: BOOLEAN ← TRUE] RETURNS [data: TEditDocument.Selection];
CaretLoc: PROC [s: TEditDocument.Selection ← NIL] RETURNS [TextNode.Location];
------ display ------
AutoScroll: PROC [tryToGlitch: BOOLEAN ← TRUE]; -- scroll to selection
------ Viewers and contents ------
GetTextContents: PROC [viewer: ViewerClasses.Viewer] RETURNS [contents: Rope.ROPE];
SetTextContents: PROC [viewer: ViewerClasses.Viewer, contents: Rope.ROPE];
RememberCurrentPosition: PROC [viewer: ViewerClasses.Viewer];
CopyPositionHistory: PROC [from, to: ViewerClasses.Viewer];
CopyLoadHistory: PROC [from, to: ViewerClasses.Viewer];
RegisterFileNameProc:
PROC [proc:
PROC [Rope.
ROPE, ViewerClasses.Viewer]
RETURNS [fileName: Rope.ROPE, search: Rope.ROPE]];
END.