
DIRECTORY EditSpan, Rope, TEditLocks, TextEdit, TextLooks, TextNode, TiogaOpers, TiogaOps;

TiogaOpersImpl: CEDAR PROGRAM
IMPORTS EditSpan, TEditLocks, TextEdit
EXPORTS TiogaOpers
=

BEGIN OPEN TiogaOpers;

Delete: PUBLIC PROC [root: RefTextNode, del: Span] = {
EditSpan.Delete[root: root, del: del, event: NIL, saveForPaste: FALSE];
};

InsertRope: PUBLIC PROC [root, dest: RefTextNode, rope: ROPE, destLoc: INT, inherit: BOOL ¬ TRUE, looks: Looks ¬ noLooks, charSet: CharSet ¬ 0] = {
[] ¬ TextEdit.ReplaceByRope[root: root, dest: dest, rope: rope, start: destLoc, len: 0, looks: looks, charSet: charSet, event: NIL];
};

Move: PUBLIC PROC [destRoot, srcRoot: RefTextNode, dest: Location, source: Span, where: Place ¬ after] = {
[] ¬ EditSpan.Move[destRoot, srcRoot, dest, source, where, 0, NIL];
};

CallWithLock: PUBLIC PROC [Proc: PROC [RefTextNode], root: TiogaOps.Ref] = {
lr: TEditLocks.LockRef = TEditLocks.Lock[root, "TiogaOpersClient"];
Proc[root ! UNWIND => TEditLocks.Unlock[root]];
TEditLocks.Unlock[root];
};

END.
   ¬  
TiogaOpersImpl.mesa
Copyright Ó 1992 by Xerox Corporation.  All rights reserved.
Mike Spreitzer December 16, 1986 2:39:30 pm PST
Willie-s, June 12, 1992 1:51 pm PDT
Êb  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ
Ïeœ1™<K™/K™#—K˜ KšÏk	œQ˜ZK˜ šÏnœžœž˜Kšžœ˜&Kšžœ˜K˜—K˜ Kšžœžœ˜K˜ šŸœžœžœ#˜6Kšœ-žœžœ˜GK˜—K˜ šŸ
œžœžœ!žœžœžœžœ3˜“Kšœžœ˜„K˜—K˜ šŸœžœžœY˜jKšœ>žœ˜CK˜—K˜ š
ŸœžœžœŸœžœ'˜LK˜CKšœžœ˜/K˜K˜—K˜ Kšžœ˜— …—        