# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1257431593 -3600
# Node ID 3484164bcb38683638463f4d8ee6f7f57da7017c
# Parent  0bbbfc569555de7f454a43758ef53f9623d882be
added:
        #asImmutableArray

diff -r 0bbbfc569555 -r 3484164bcb38 Array.st
--- a/Array.st	Thu Nov 05 15:05:29 2009 +0100
+++ b/Array.st	Thu Nov 05 15:33:13 2009 +0100
@@ -426,6 +426,13 @@
     ^ super asArray
 
     "Modified: 22.4.1996 / 12:42:09 / cg"
+!
+
+asImmutableArray
+    "return a write-protected copy of myself"
+
+    self assert:(ImmutableArray notNil).
+    ^ self copy changeClassTo:ImmutableArray
 ! !
 
 !Array methodsFor:'copying'!
@@ -2546,9 +2553,9 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.146 2009-10-06 15:16:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.147 2009-11-05 14:33:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.146 2009-10-06 15:16:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.147 2009-11-05 14:33:13 cg Exp $'
 ! !