equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
|
13 'From Smalltalk/X, Version:3.1.10 on 13-sep-1997 at 10:52:56 pm' ! |
|
14 |
13 OrderedCollection subclass:#SortedCollection |
15 OrderedCollection subclass:#SortedCollection |
14 instanceVariableNames:'sortBlock' |
16 instanceVariableNames:'sortBlock' |
15 classVariableNames:'DefaultSortBlock' |
17 classVariableNames:'DefaultSortBlock' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
17 category:'Collections-Sequenceable' |
19 category:'Collections-Sequenceable' |
140 |
142 |
141 "Modified: 12.4.1996 / 12:29:27 / cg" |
143 "Modified: 12.4.1996 / 12:29:27 / cg" |
142 ! ! |
144 ! ! |
143 |
145 |
144 !SortedCollection class methodsFor:'instance creation'! |
146 !SortedCollection class methodsFor:'instance creation'! |
|
147 |
|
148 forStrings |
|
149 "this is supposed to return a sortedCollection, which sorts using |
|
150 the current locales collating sequence. For now, simply use a |
|
151 normal string compare. |
|
152 This will change" |
|
153 |
|
154 ^ self new |
|
155 |
|
156 "Modified: 13.9.1997 / 10:18:58 / cg" |
|
157 "Created: 13.9.1997 / 10:41:54 / cg" |
|
158 ! |
|
159 |
|
160 forStrings:size |
|
161 "this is supposed to return a sortedCollection, which sorts using |
|
162 the current locales collating sequence. For now, simply use a |
|
163 normal string compare. |
|
164 This will change" |
|
165 |
|
166 ^ self new:size |
|
167 |
|
168 "Modified: 13.9.1997 / 10:18:58 / cg" |
|
169 ! |
145 |
170 |
146 new |
171 new |
147 "return a new sortedCollection, the sorting is done using |
172 "return a new sortedCollection, the sorting is done using |
148 a compare for a < b, in ascending order" |
173 a compare for a < b, in ascending order" |
149 |
174 |
678 ! ! |
703 ! ! |
679 |
704 |
680 !SortedCollection class methodsFor:'documentation'! |
705 !SortedCollection class methodsFor:'documentation'! |
681 |
706 |
682 version |
707 version |
683 ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.34 1997-01-23 16:41:10 ca Exp $' |
708 ^ '$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.35 1997-09-15 20:56:49 cg Exp $' |
684 ! ! |
709 ! ! |
685 SortedCollection initialize! |
710 SortedCollection initialize! |