equal
deleted
inserted
replaced
15 child |
15 child |
16 ^ child |
16 ^ child |
17 ! |
17 ! |
18 |
18 |
19 child: whatever |
19 child: whatever |
|
20 self assert: (whatever == self) not. |
20 child := whatever |
21 child := whatever |
21 ! |
22 ! |
22 |
23 |
23 children |
24 children |
24 ^ { child } |
25 ^ { child } |
43 ! ! |
44 ! ! |
44 |
45 |
45 !PPCDelegateNode methodsFor:'transformation'! |
46 !PPCDelegateNode methodsFor:'transformation'! |
46 |
47 |
47 replace: node with: anotherNode |
48 replace: node with: anotherNode |
|
49 self assert: (anotherNode == self) not. |
48 child == node ifTrue: [ child := anotherNode ] |
50 child == node ifTrue: [ child := anotherNode ] |
49 ! ! |
51 ! ! |
50 |
52 |
51 !PPCDelegateNode class methodsFor:'documentation'! |
53 !PPCDelegateNode class methodsFor:'documentation'! |
52 |
54 |