+decodeAsLiteralArrayCollection
authorClaus Gittinger <cg@exept.de>
Thu, 20 Dec 2007 15:25:43 +0100
changeset 10818 cbbb7124b553
parent 10817 f73fcb4b935b
child 10819 3d7bea065ca5
+decodeAsLiteralArrayCollection
SequenceableCollection.st
--- a/SequenceableCollection.st	Wed Dec 19 15:33:31 2007 +0100
+++ b/SequenceableCollection.st	Thu Dec 20 15:25:43 2007 +0100
@@ -2174,6 +2174,24 @@
     "Modified: / 26-03-2007 / 13:57:10 / cg"
 !
 
+decodeAsLiteralArrayCollection
+    "given an array of literalEncodings in the receiver,
+     create & return the corresponding collection object."
+
+    ^ self collect:[:each | each decodeAsLiteralArray]
+
+    "
+     #(
+        #(Point 10 20) 
+        #(Point 20 30) 
+        #(Point 30 40) 
+        #(Point 40 50) 
+     ) decodeAsLiteralArrayCollection 
+    "
+
+    "Modified: / 26-03-2007 / 13:57:10 / cg"
+!
+
 from:firstLine to:lastLine asStringWith:sepCharacter
     "return part of myself as a string with embedded sepCharacters.
      My elements must be strings or nil; nil entries and empty strings are
@@ -7018,7 +7036,7 @@
 !SequenceableCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.249 2007-12-06 21:46:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.250 2007-12-20 14:25:43 cg Exp $'
 ! !
 
 SequenceableCollection initialize!