equal
deleted
inserted
replaced
145 self keysAndValuesDo:[:elKey :elValue | aBlock value:elValue] |
145 self keysAndValuesDo:[:elKey :elValue | aBlock value:elValue] |
146 |
146 |
147 "Created: / 19.6.1998 / 00:56:24 / cg" |
147 "Created: / 19.6.1998 / 00:56:24 / cg" |
148 ! |
148 ! |
149 |
149 |
|
150 findFirstKey:aBlock |
|
151 "find and return the first key, for which evaluation of the argument, aBlock |
|
152 returns true; return nil if none is detected." |
|
153 |
|
154 self keysDo:[:key | |
|
155 (aBlock value:key) ifTrue:[^ key]. |
|
156 ]. |
|
157 ^ nil |
|
158 |
|
159 "Created: 8.10.1996 / 22:01:31 / cg" |
|
160 "Modified: 8.10.1996 / 22:02:03 / cg" |
|
161 ! |
|
162 |
150 keysAndValuesDo:aBlock |
163 keysAndValuesDo:aBlock |
151 "evaluate aBlock for each key and value" |
164 "evaluate aBlock for each key and value" |
152 |
165 |
153 ^ self subclassResponsibility |
166 ^ self subclassResponsibility |
154 |
167 |
197 ! ! |
210 ! ! |
198 |
211 |
199 !KeyedCollection class methodsFor:'documentation'! |
212 !KeyedCollection class methodsFor:'documentation'! |
200 |
213 |
201 version |
214 version |
202 ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.2 2005-06-27 10:24:01 cg Exp $' |
215 ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.3 2006-08-08 14:14:00 cg Exp $' |
203 ! ! |
216 ! ! |