equal
deleted
inserted
replaced
1 "{ Package: 'stx:libbasic2' }" |
1 "{ Package: 'stx:libbasic2' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#TSTreeNode |
5 Object subclass:#TSTreeNode |
4 instanceVariableNames:'key value low high equal' |
6 instanceVariableNames:'key value low high equal' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
27 ! ! |
29 ! ! |
28 |
30 |
29 !TSTreeNode methodsFor:'private'! |
31 !TSTreeNode methodsFor:'private'! |
30 |
32 |
31 canBeCulled |
33 canBeCulled |
32 ^ self value isNil |
34 ^ self value isNil |
33 and: [low isNil] |
35 and: [low isNil |
34 and: [equal isNil] |
36 and: [equal isNil |
35 and: [high isNil] |
37 and: [high isNil]]] |
36 ! |
38 ! |
37 |
39 |
38 cullNode: aNode |
40 cullNode: aNode |
39 low == aNode ifTrue: [^ low _ nil]. |
41 low == aNode ifTrue: [^ low _ nil]. |
40 equal == aNode ifTrue: [^ equal _ nil]. |
42 equal == aNode ifTrue: [^ equal _ nil]. |
173 ! ! |
175 ! ! |
174 |
176 |
175 !TSTreeNode class methodsFor:'documentation'! |
177 !TSTreeNode class methodsFor:'documentation'! |
176 |
178 |
177 version |
179 version |
178 ^ '$Header: /cvs/stx/stx/libbasic2/TSTreeNode.st,v 1.1 2014-04-26 11:13:34 vrany Exp $' |
180 ^ '$Header$' |
179 ! |
181 ! |
180 |
182 |
181 version_CVS |
183 version_CVS |
182 ^ '$Header: /cvs/stx/stx/libbasic2/TSTreeNode.st,v 1.1 2014-04-26 11:13:34 vrany Exp $' |
184 ^ '$Header$' |
183 ! ! |
185 ! ! |
184 |
186 |