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; GetSelContents: PROC RETURNS [contents: ROPE]; GetSelData: PROC [primary: BOOL _ TRUE] RETURNS [data: TEditDocument.Selection]; CaretLoc: PROC [s: TEditDocument.Selection _ NIL] RETURNS [TextNode.Location]; AutoScroll: PROC [tryToGlitch: BOOL _ TRUE]; -- scroll to selection 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]; 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. φTEditOps.mesa Copyright c 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 Selections and their contents Display Viewers and contents File name lookup Κ˜codešœ ™ Kšœ Οmœ1™