--- 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 $'
! !
+