-- TiogaOps.mesa, Edited by Paxton on June 13, 1983 9:29 am
DIRECTORY
Rope USING [ROPE],
TiogaDocument USING [Selection],
TiogaNode USING [Location],
ViewerClasses USING [Viewer];
TiogaOps: CEDAR DEFINITIONS =
BEGIN
------ Selections and their contents ------
GetSelContents: PROC RETURNS [contents: Rope.ROPE];
GetSelData: PROC [primary: BOOLEAN ← TRUE] RETURNS [data: TiogaDocument.Selection];
CaretLoc: PROC [s: TiogaDocument.Selection ← NIL] RETURNS [TiogaNode.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.