equal
deleted
inserted
replaced
608 |
608 |
609 existingLeafForKey: aMagnitude |
609 existingLeafForKey: aMagnitude |
610 "Unlike #leafForKey:, this method looks for a leaf but doesn't mess with the tree if it doesn't exist." |
610 "Unlike #leafForKey:, this method looks for a leaf but doesn't mess with the tree if it doesn't exist." |
611 | child | |
611 | child | |
612 child := self existingChildForKey: aMagnitude. |
612 child := self existingChildForKey: aMagnitude. |
613 ^ child notNil ifTrue: [child existingLeafForKey: aMagnitude] |
613 ^ child notNil |
614 |
614 ifTrue: [child existingLeafForKey: aMagnitude] |
615 "Modified: / 08-08-2010 / 14:40:01 / cg" |
615 ifFalse:[nil] |
|
616 |
|
617 "Modified: / 19-11-2016 / 12:20:31 / cg" |
616 ! |
618 ! |
617 |
619 |
618 insertKey: aMagnitude value: anObject at: index |
620 insertKey: aMagnitude value: anObject at: index |
619 super insertKey: aMagnitude value: anObject at: index. |
621 super insertKey: aMagnitude value: anObject at: index. |
620 anObject parent: self |
622 anObject parent: self |