TEditOps.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Edited by Paxton on October 28, 1982 11:46 am
Doug Wyatt, March 3, 1985 1:28:06 pm PST
DIRECTORY
Rope USING [ROPE],
TEditDocument USING [Selection],
TextNode 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 [TextNode.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.