Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#UI_ENHANCEMENT
authorClaus Gittinger <cg@exept.de>
Fri, 20 Nov 2015 21:19:43 +0100
changeset 18937 5771812c3f5a
parent 18936 165de5f0f8e2
child 18938 34feead204c2
#UI_ENHANCEMENT class: Array changed: #displayStringName also print immutableArrays in their literal form
Array.st file | annotate | diff | comparison | revisions 
--- a/Array.st	Fri Nov 20 20:55:34 2015 +0100
+++ b/Array.st	Fri Nov 20 21:19:43 2015 +0100
@@ -1771,8 +1771,10 @@
 !Array methodsFor:'printing & storing'!
 
 displayStringName
-    self class == Array ifTrue:[
-	^ '#'
+    |cls|
+    
+    ((cls := self class) == Array or:[cls == ImmutableArray]) ifTrue:[
+        ^ '#'
     ].
     ^ super displayStringName.
 !
@@ -2700,3 +2702,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+
hg/stx-libbasic