equal
deleted
inserted
replaced
250 s := SortedCollection withAll:#('foo' 'Bar' 'baz' 'hello' 'world' 'Wow') sortBlock:[:a :b | a asLowercase < b asLowercase]. |
250 s := SortedCollection withAll:#('foo' 'Bar' 'baz' 'hello' 'world' 'Wow') sortBlock:[:a :b | a asLowercase < b asLowercase]. |
251 Transcript showCR:s |
251 Transcript showCR:s |
252 " |
252 " |
253 |
253 |
254 "Modified: 12.4.1996 / 12:28:09 / cg" |
254 "Modified: 12.4.1996 / 12:28:09 / cg" |
|
255 ! ! |
|
256 |
|
257 !SortedCollection class methodsFor:'Compatibility - Dolphin'! |
|
258 |
|
259 sortBlock:aBlock withAll:aCollection |
|
260 ^ self withAll:aCollection sortBlock:aBlock |
255 ! ! |
261 ! ! |
256 |
262 |
257 !SortedCollection methodsFor:'adding & removing'! |
263 !SortedCollection methodsFor:'adding & removing'! |
258 |
264 |
259 add:anObject |
265 add:anObject |
835 ! ! |
841 ! ! |
836 |
842 |
837 !SortedCollection class methodsFor:'documentation'! |
843 !SortedCollection class methodsFor:'documentation'! |
838 |
844 |
839 version |
845 version |
840 ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.49 2001-02-28 13:13:46 stefan Exp $' |
846 ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.50 2002-02-25 20:03:03 cg Exp $' |
841 ! ! |
847 ! ! |
842 SortedCollection initialize! |
848 SortedCollection initialize! |