DIRECTORY Rope USING [ROPE], TEditDocument USING [Selection], TEditSelection USING [pSel, sSel], TEditScrolling USING [AutoScroll], ViewerClasses USING [Viewer], TEditOps USING []; TEditOpsImpl: CEDAR PROGRAM IMPORTS TEditSelection, TEditScrolling EXPORTS TEditOps = BEGIN OPEN TEditOps, TEditSelection, ViewerClasses; GetSelContents: PUBLIC PROC RETURNS [contents: Rope.ROPE] = {RETURN[IF pSel.viewer=NIL THEN NIL ELSE NARROW[pSel.viewer.class.get[pSel.viewer, $SelChars]]]} ; GetSelData: PUBLIC PROC [primary: BOOLEAN _ TRUE] RETURNS [data: TEditDocument.Selection] = {RETURN [IF primary THEN pSel ELSE sSel]} ; AutoScroll: PUBLIC PROC [tryToGlitch: BOOLEAN _ TRUE] = { TEditScrolling.AutoScroll[tryToGlitch: tryToGlitch] }; -- scroll to selection GetTextContents: PUBLIC PROC [viewer: Viewer] RETURNS [contents: Rope.ROPE] = {RETURN[NARROW[viewer.class.get[viewer]]]} ; SetTextContents: PUBLIC PROC [viewer: Viewer, contents: Rope.ROPE] = {viewer.class.set[viewer, contents]} ; END. °TEditOpsImpl.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Edited by Paxton on October 28, 1982 11:47 am Doug Wyatt, September 2, 1986 5:09:14 pm PDT ΚΗ˜codešΟc™Kšœ Οmœ1™K˜——š   œŸœŸœ ŸœŸœ˜1KšŸœ"˜)Kš œŸœŸœ ŸœŸœ ˜+K˜—K˜š   œŸœŸœŸœŸœ˜9Kšœ7˜MK˜K˜—š  œŸœŸœŸœŸœ˜NKšœŸœŸœ˜,K˜—š œŸœŸœ!Ÿœ˜DK˜&K˜—KšŸœ˜—…—θ_