InspectorView.st
branchjv
changeset 12296 6921627a8c27
parent 12289 75613e714c3d
child 12308 5d9291c0fc27
--- a/InspectorView.st	Tue Sep 18 11:39:12 2012 +0100
+++ b/InspectorView.st	Thu Sep 27 21:08:20 2012 +0100
@@ -2220,28 +2220,7 @@
     (value isNumber or:[value isBoolean]) ifTrue:[
         ^ self basicDisplayStringForValue:value "value printString"
     ].
-    (value isSymbol) ifTrue:[
-        ^ value storeString
-    ].
-    (value isCharacter) ifTrue:[
-        (value codePoint <= 16r7f) ifTrue:[
-            ^ value storeString,(' "16r%1 %2"' bindWith:(value codePoint hexPrintString) with:value codePoint)
-        ].
-        ^ value storeString,(' "%1"' bindWith:(value codePoint))
-    ].
-    value isString ifTrue:[
-        ^ value storeString contractTo:30.
-    ].
-    value isColor ifTrue:[
-        ^ value htmlPrintString
-    ].
-    value isNil ifTrue:[
-        ^ 'nil'
-    ].
-    (value isClass and:[value name notEmptyOrNil]) ifTrue:[
-        ^ value name
-    ].
-    ^ value classNameWithArticle "nil"
+    ^ value inspectorValueStringInListFor:self
 
     "Created: / 13-06-2012 / 12:50:26 / cg"
 !
@@ -2621,12 +2600,19 @@
 
     ^ list
         keysAndValuesCollect:[:idx :nm |
-            self listEntryForName:nm value:(self indexedValueAtIndex: idx)
+            | val |
+            
+            [
+                val := self indexedValueAtIndex: idx
+            ] on:Error do:[
+                val := '** ERROR **'
+            ].
+            self listEntryForName:nm value:val
         ].
 
-    ^ list.
-
-    "Modified: / 22-08-2012 / 19:19:05 / cg"
+"/    ^ list.
+
+    "Modified: / 21-09-2012 / 11:18:28 / cg"
     "Modified: / 06-07-2012 / 10:37:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
@@ -3334,13 +3320,13 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Id: InspectorView.st 8050 2012-09-07 19:27:32Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.280 2012/09/24 10:34:43 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.278 2012/08/23 11:45:48 cg Exp §'
+    ^ 'Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.280 2012/09/24 10:34:43 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: InspectorView.st 8050 2012-09-07 19:27:32Z vranyj1 $'
+    ^ '$Id: InspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $'
 ! !