# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1364512408 -3600
# Node ID 3ac27883699a097ebfc085a18cfe0e189925f42a
# Parent  169c11c0ec6f5fa1e4d19b63f8767fb821918b30
class: Array
added: #asNewArray

diff -r 169c11c0ec6f -r 3ac27883699a Array.st
--- a/Array.st	Thu Mar 28 18:43:25 2013 +0100
+++ b/Array.st	Fri Mar 29 00:13:28 2013 +0100
@@ -439,6 +439,16 @@
     "Modified: / 07-06-2012 / 11:06:48 / cg"
 !
 
+asNewArray
+    "return the receiver as an unique new array."
+
+    "could be an instance of a subclass..."
+    self class == Array ifTrue:[
+        ^ self copy
+    ].
+    ^ super asArray
+!
+
 beImmutable
     "make myself write-protected"
 
@@ -2568,9 +2578,10 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.156 2013-01-23 17:57:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.157 2013-03-28 23:13:28 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.156 2013-01-23 17:57:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.157 2013-03-28 23:13:28 stefan Exp $'
 ! !
+