#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sun, 01 Jan 2017 16:23:38 +0100
changeset 21215 c41ea6970c23
parent 21214 0eb9c48163b4
child 21216 7063316ccde8
#FEATURE by cg class: Collection added: #asCollectionDo:
Collection.st
--- a/Collection.st	Sun Jan 01 16:23:18 2017 +0100
+++ b/Collection.st	Sun Jan 01 16:23:38 2017 +0100
@@ -343,6 +343,7 @@
     ^ self
 ! !
 
+
 !Collection methodsFor:'Compatibility-ANSI'!
 
 identityIncludes:anObject
@@ -1650,6 +1651,12 @@
 
 !
 
+asCollectionDo:aBlock
+    "enumerate myself"
+
+    self do:aBlock
+!
+
 asDictionary
     "return a Dictionary with the receiver collection's elements,
      using the original keys of the receiver as dictionary key.