--- a/Iterator.st Thu Oct 17 15:03:59 2013 +0200
+++ b/Iterator.st Mon Oct 21 17:09:39 2013 +0200
@@ -308,6 +308,25 @@
!Iterator methodsFor:'enumerating'!
+collect:aBlock as:aClass
+ "Reimplemented here as Iterator does not support #size"
+
+ |newCollection|
+
+ newCollection := aClass new.
+ self do:[:el |
+ newCollection add:(aBlock value:el).
+ ].
+ ^ newCollection
+
+ "
+ #(one two three four five six) collect:[:element | element asUppercase] as:OrderedCollection
+ 'abcdef' collect:[:char | char digitValue] as:ByteArray
+ "
+
+ "Created: / 21-10-2013 / 16:07:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
do: aBlock
block value: aBlock
!
@@ -398,10 +417,10 @@
!Iterator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.25 2013-05-21 20:22:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.26 2013-10-21 15:09:39 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.25 2013-05-21 20:22:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Iterator.st,v 1.26 2013-10-21 15:09:39 vrany Exp $'
! !