DIRECTORY
Tioga USING [Node, Location, Span],
Rope USING [ROPE],
Rosary USING [ROSARY];

EditNotify: CEDAR DEFINITIONS = BEGIN

ROPE: TYPE ~ Rope.ROPE;
ROSARY: TYPE ~ Rosary.ROSARY;
Node: TYPE ~ Tioga.Node;

ChangeType: TYPE = {
ChangingText, ChangingProp, ChangingSpanForPaste,
MovingNodes, NodeNesting, InsertingNode, ChangingView
};

Change: TYPE = RECORD [SELECT kind: ChangeType FROM

ChangingText => [
text: Node,
start, newlen, oldlen: INT,
oldRope: ROPE,
oldRuns: ROSARY,
oldCharSets: ROSARY,
oldCharProps: ROSARY
],

ChangingProp => [
node: Node,
name: ATOM, newval, oldval: REF
],

ChangingSpanForPaste => [
span: Tioga.Span
],

MovingNodes => [
dest, first, last, pred: Node, nesting: INTEGER,
afterDest: BOOL
],

NodeNesting => [ -- change nesting of nodes [first..last]
first, last: Node, change: INTEGER
],

InsertingNode => [ -- insert new node after dest
new, dest: Node
],

ChangingView => [
view: REF,
old: Tioga.Location
],

ENDCASE
];

ChangeSet: TYPE = PACKED ARRAY ChangeType OF Flag;
Flag: TYPE = BOOL ¬ FALSE;
defaultChangeSet: ChangeSet = ALL[TRUE];


EditNotifyProc: TYPE = PROC [change: REF READONLY Change];

When: TYPE = { before, after };

Priority: TYPE = { high, normal, low };


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];


END.
  (  
EditNotify.mesa
Copyright Ó 1985, 1986, 1988, 1991, 1992 by Xerox Corporation.  All rights reserved.
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
Rick Beach, March 27, 1985 1:11:24 pm PST
Michael Plass, March 18, 1985 4:11:48 pm PST
Doug Wyatt, January 30, 1992 11:59 am PST

dest cannot be within nodes [first..last]
pred is the node before first. pred and nesting used for undo
**** Notification Operations ****
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
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
 ÊN  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ
ÏeœI™TKšœ"™"Kšœ.™.Kšœ0™0K™)K™,K™)K™ —šÏk	˜	Kšœžœ˜#Kšœžœžœ˜Kšœžœžœ˜—K˜ KšÏn
œžœžœž˜%K˜ Kšžœžœžœ˜Kšžœžœ
žœ˜Kšœžœ˜K˜ šœžœ˜Kšœ1˜1Kšœ5˜5K˜K˜ —Kšœžœžœžœž˜3˜ ˜K˜Kšœžœ˜Kšœ	žœ˜Kšœ	žœ˜Kšœžœ˜Kšœž˜K˜K˜ —šœ˜Kšœ˜Kšœžœž˜Kšœ˜K˜ —˜K˜K˜K˜ —˜Kšœ(žœ˜0Kšœž˜Kšœ˜Kšœ)™)šœ=™=K˜ ——šœÏc(˜9Kšœž˜"Kšœ˜K˜ —šœ ˜0K˜K˜K˜ —˜Kšœžœ˜
K˜K˜K˜ —Kšž˜Kšœ˜K˜ —Kš	œžœžœžœžœ˜2Kšœžœžœžœ˜šœžœžœ˜(K˜ —K˜ Kšœ!™!K˜ š	œžœžœ
žœžœ	˜:K˜ —šœžœ˜KšœC™CK˜ —šœ
žœ˜'KšœF™Fšœ7™7šœ™Kšœ™——K˜ —K˜ šŸœžœs˜†Kšœ/™/šœ0™0Kšœ=™=Kšœ<™<K˜ ——šŸœžœ,˜BKšœ0™0K˜ —šŸœžœ
žœžœ˜7Kšœ&™&K˜ —K˜ Kšžœ˜— …—    È  >  