--- a/InspectorView.st	Fri Jan 27 22:18:53 2012 +0100
+++ b/InspectorView.st	Mon Jan 30 16:44:52 2012 +0100
@@ -19,7 +19,7 @@
 		suppressPseudoSlots dereferenceValueHolders suppressHeadline
 		headLineLabel'
 	classVariableNames:'DefaultIcon IdDictionary NextSequentialID LastExtent
-		DefaultIntegerDisplayRadix'
+		DefaultIntegerDisplayRadix ExpandArrays'
 	poolDictionaries:''
 	category:'Interface-Inspector'
 !
@@ -2055,23 +2055,42 @@
 !
 
 stringWithAllInstVarValues
-    |s names maxLen varString|
+    |s names maxLen|
 
     s := CharacterWriteStream on:''.
     names := object class allInstVarNames.
     maxLen := (names collect:[:eachName | eachName size]) max.
     names keysAndValuesDo:[:eachInstVarIndex :eachInstVarName |
+        |val valString|
+
+        val := object instVarAt:eachInstVarIndex.
+
         s nextPutAll:((eachInstVarName , ' ') paddedTo:maxLen+1 with:$.).
         s nextPutAll:' : '.
-        varString := self basicDisplayStringForValue:(object instVarAt:eachInstVarIndex).
-        (varString includes:Character cr) ifTrue:[
-            varString := varString copyTo:(varString indexOf:Character cr)-1.
-            varString := varString , '...'.
+        valString := self basicDisplayStringForValue:val.
+        (valString includes:Character cr) ifTrue:[
+            valString := valString copyTo:(valString indexOf:Character cr)-1.
+            valString := valString , '...'.
         ].
-        s nextPutAll:varString.
+        s nextPutAll:valString.
         s cr.
+
+        ((ExpandArrays == true) and:[val isArray]) ifTrue:[
+            val doWithIndex:[:el :idx |
+                |elValString|
+
+                s nextPutAll:(' ' paddedTo:maxLen+1 with:$.).
+                s nextPutAll:(' [',(idx printString leftPaddedTo:2),']').
+                s nextPutAll:' : '.
+                elValString := self basicDisplayStringForValue:el.
+                s nextPutAll:elValString.
+                s cr.
+            ].
+        ].
     ].
     ^ s contents
+
+    "Modified: / 30-01-2012 / 16:44:19 / cg"
 !
 
 stringWithMessages:which
@@ -2638,9 +2657,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.240 2011-11-14 11:58:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.241 2012-01-30 15:44:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.240 2011-11-14 11:58:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.241 2012-01-30 15:44:52 cg Exp $'
 ! !