Andreas Raab uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ar.146.mcz==================== Summary ====================
Name: Collections-ar.146
Author: ar
Time: 29 September 2009, 11:13:32 am
UUID: 92161bb4-bec3-7a43-b30d-9d2d9da56bb8
Ancestors: Collections-ar.145
Pseudo-merging Collections-ul.145:
deprecated #findElementOrNil: and #noCheckAdd:
=============== Diff against Collections-ar.145 ===============
Item was changed:
----- Method: KeyedSet>>noCheckAdd: (in category 'private') -----
noCheckAdd: anObject
+
+ self deprecated: 'This method should not be used anymore.'.
array at: (self scanFor: (keyBlock value: anObject)) put: anObject.
tally := tally + 1!
Item was changed:
----- Method: Set>>findElementOrNil: (in category 'private') -----
findElementOrNil: anObject
"Answer the index of a first slot containing either a nil (indicating an empty slot) or an element that matches the given object. Answer the index of that slot or zero. Fail if neither a match nor an empty slot is found."
| index |
+ self deprecated: 'Use #scanFor:.'.
-
index := self scanFor: anObject.
index > 0 ifTrue: [^index].
"Bad scene. Neither have we found a matching element
nor even an empty slot. No hashed set is ever supposed to get
completely full."
self error: 'There is no free space in this set!!'.!
Item was changed:
----- Method: Set>>noCheckAdd: (in category 'private') -----
noCheckAdd: anObject
+
+ self deprecated: 'This method should not be used anymore.'.
array at: (self scanFor: anObject) put: anObject.
tally := tally + 1!
Item was changed:
----- Method: Dictionary>>noCheckAdd: (in category 'private') -----
noCheckAdd: anObject
"Must be defined separately for Dictionary because (self scanFor:) expects a key,
not an association. 9/7/96 tk"
+ self deprecated: 'This method should not be used anymore.'.
array at: (self scanFor: anObject key) put: anObject.
tally := tally + 1!