--- a/KeyedCollection.st Tue Aug 24 10:28:27 2010 +0200
+++ b/KeyedCollection.st Tue Aug 24 10:29:08 2010 +0200
@@ -153,14 +153,6 @@
^ self subclassResponsibility
"Created: / 19.6.1998 / 00:56:52 / cg"
-!
-
-keysDo:aBlock
- "evaluate aBlock for each key"
-
- self keysAndValuesDo:[:elKey :elValue | aBlock value:elKey]
-
- "Created: / 19.6.1998 / 00:56:34 / cg"
! !
!KeyedCollection methodsFor:'removing'!
@@ -208,9 +200,9 @@
!KeyedCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.7 2010-01-29 16:42:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.8 2010-08-24 08:29:08 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.7 2010-01-29 16:42:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.8 2010-08-24 08:29:08 cg Exp $'
! !