DIRECTORYTextNode,TextLooks,Rope,ViewerClasses;EditNotify: CEDAR DEFINITIONS =BEGINRef: TYPE = TextNode.Ref;RefTextNode: TYPE = TextNode.RefTextNode;RefOtherNode: TYPE = TextNode.RefOtherNode;Looks: TYPE = TextLooks.Looks;Offset: TYPE = TextNode.Offset;ROPE: TYPE = Rope.ROPE;When: TYPE = { before, after };Priority: TYPE = { high, normal, low };EditNotifyProc: TYPE = PROC [change: REF READONLY Change];AddNotifyProc: PROC [proc: EditNotifyProc,time: When _ after,priority: Priority _ normal,changeSet: ChangeSet _ defaultChangeSet];RemoveNotifyProc: PROC [proc: EditNotifyProc,time: When _ after];Notify: PROC [change: REF READONLY Change, time: When];ChangeSet: TYPE = PACKED ARRAY ChangeType OF Flag;Flag: TYPE = BOOLEAN _ FALSE;defaultChangeSet: ChangeSet = ALL[TRUE];Change: TYPE = RECORD [SELECT kind:ChangeType FROMChangingView => [viewer: ViewerClasses.Viewer,old: TextNode.Location ],ChangingText => [root: Ref, text: RefTextNode,start, newlen, oldlen: Offset,oldRope: ROPE,oldRuns: TextLooks.Runs ],ChangingTextForPaste => [rope: ROPE,runs: TextLooks.Runs,start, len: Offset ],ChangingSpanForPaste => [span: TextNode.Span ],ChangingType => [ -- change type for noderoot: Ref, node: Ref,newTypeName, oldTypeName: TextNode.TypeName],ChangingProp => [ -- change property for noderoot, node: Ref, propName: ROPE, propAtom: ATOM, newval, oldval: REF],MovingNodes => [destRoot, sourceRoot: Ref,dest, first, last, pred: Ref, nesting: INTEGER,afterDest: BOOL],NodeNesting => [ -- change nesting of nodes [first..last]root, first, last: Ref, change: INTEGER],InsertingNode => [ -- insert new node after destroot, new, dest: Ref],ENDCASE ];ChangeType: TYPE = {ChangingView, ChangingText, ChangingTextForPaste, ChangingSpanForPaste,ChangingType, ChangingProp, MovingNodes, NodeNesting, InsertingNode };Start: PROC; -- for initialization onlyEND.  ž  -- EditNotify.mesa-- written by Bill Paxton, March 1981-- last edit by Bill Paxton, May 13, 1982 5:04 pmLast Edited by: Maxwell, January 5, 1983 8:42 am-- indicates whether notify before or after the change has taken place-- high priority procs called before normal, and normal called before low-- e.g., might use high priority for clearing style cache,-- normal for redisplay, and-- low for saving replay info-- **** Notification Operations ****-- add new proc to list of notification procedures-- call proc before/after any edit in its changeSet-- use time=before for applications such as saving text for undo-- use time=after for applications such as reformat & redisplay-- remove proc from list of notification procedures-- call the appropriate edit notify procs-- **** Change Record ****-- dest cannot be within nodes [first..last]-- pred is the node before first. pred and nesting used for undo Ê  ˜ JšÏc™Jš%™%Jš1™1Jš0™0JšÏk	˜	J˜	J˜
J˜J˜J˜ Jšœž˜Jšž˜J˜ Jšœžœ˜Jšœžœ˜)Jšœžœ˜+Jšœžœ˜Jšœžœ˜Jšžœžœžœ˜J˜ šœžœ˜JšF™FJ˜ —šœ
žœ˜'JšI™Iš:™:š™Jš™J˜ J˜ ———Jš$™$J˜ Jš
Ïnœžœžœ
žœžœ	˜:J˜ šŸœžœ˜J˜J˜J˜J˜)Jš2™2š3™3Jš@™@Jš?™?J˜ ——šŸœžœ˜J˜J˜Jš3™3J˜ —šŸœžœ
žœžœ˜7Jš)™)J˜ —Jš	œžœžœžœžœ˜2Jšœžœžœžœ˜Jšœžœžœ˜(J˜ J˜ Jš™J˜ Jšœžœžœžœž˜2˜ ˜J˜J˜J˜ —˜J˜J˜Jšœ	žœ˜J˜J˜ —˜Jšœžœ˜J˜J˜J˜ —˜J˜J˜ —šœ˜)J˜J˜-J˜ —šœ˜-Jšœžœžœžœ˜FJ˜ —˜J˜Jšœ'žœ˜/šœžœ˜Jš,™,Jš@™@J˜ ——šœ(˜9Jšœ žœ˜)J˜ —šœ˜0J˜J˜ —Jšžœ˜
J˜ —šœžœ˜J˜GJ˜FJ˜ —JšŸœžœ˜'J˜ Jšžœ˜J˜ — …—      3  