TEditOps.mesa
Copyright Ó 1985, 1986, 1991, 1992 by Xerox Corporation. All rights reserved.
Edited by Paxton on October 28, 1982 11:46 am
Doug Wyatt, January 30, 1992 6:44 pm PST
DIRECTORY
Rope USING [ROPE],
TEditDocument USING [Selection],
Tioga USING [Location],
ViewerClasses USING [Viewer];
TEditOps: CEDAR DEFINITIONS ~ BEGIN
ROPE: TYPE ~ Rope.ROPE;
Viewer: TYPE ~ ViewerClasses.Viewer;
Selections and their contents
GetSelContents: PROC RETURNS [contents: ROPE];
GetSelData: PROC [primary: BOOL ¬ TRUE] RETURNS [data: TEditDocument.Selection];
CaretLoc: PROC [s: TEditDocument.Selection ¬ NIL] RETURNS [Tioga.Location];
Display
AutoScroll: PROC [tryToGlitch: BOOL ¬ TRUE]; -- scroll to selection
Viewers and contents
GetTextContents: PROC [viewer: Viewer] RETURNS [contents: ROPE];
SetTextContents: PROC [viewer: Viewer, contents: ROPE];
RememberCurrentPosition: PROC [viewer: Viewer];
CopyPositionHistory: PROC [from, to: Viewer];
CopyLoadHistory: PROC [from, to: Viewer];
File name lookup
FileNameProc: TYPE ~ PROC [ROPE, Viewer] RETURNS [fileName: ROPE, search: ROPE];
RegisterFileNameProc: PROC [proc: FileNameProc];
ReplaceFileNameProc: PROC[new: FileNameProc] RETURNS[old: FileNameProc];
WorkingDirectoryFromViewer: PROC[Viewer] RETURNS[ROPE];
END.