--- a/InspectorView.st	Wed Jun 13 12:11:47 2012 +0200
+++ b/InspectorView.st	Wed Jun 13 12:52:21 2012 +0200
@@ -2086,6 +2086,28 @@
     "Created: / 16-05-2012 / 18:42:28 / cg"
 !
 
+plainValueStringInListEntryForValue:value
+    "returns nil or a string to show in angle brackets"
+
+    UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil].
+
+    (value isNumber or:[value isBoolean]) ifTrue:[
+        ^ value printString
+    ].
+    (value isSymbol or:[value isCharacter]) ifTrue:[
+        ^  value storeString
+    ].
+    value isString ifTrue:[
+        ^  value contractTo:30.
+    ].
+    value isColor ifTrue:[
+        ^  value htmlPrintString
+    ].
+    ^ nil
+
+    "Created: / 13-06-2012 / 12:50:26 / cg"
+!
+
 stringWithAllIndexedVarValues
     |nIdx s names maxLen varString padLeft|
 
@@ -2196,23 +2218,7 @@
 
     |valString|
 
-    UserPreferences current showTypeIndicatorInInspector ifTrue:[
-        value isNumber ifTrue:[
-            valString := value printString
-        ] ifFalse:[
-            (value isSymbol or:[value isCharacter]) ifTrue:[
-                valString :=  value storeString
-            ] ifFalse:[
-                value isString ifTrue:[
-                    valString :=  value contractTo:30.
-                ] ifFalse:[
-                    value isColor ifTrue:[
-                        valString :=  value htmlPrintString
-                    ].
-                ]
-            ]
-        ]
-    ].
+    valString := self plainValueStringInListEntryForValue:value.
     valString isNil ifTrue:[^ ''].
     ^ ' <',valString,'>'
 
@@ -3226,9 +3232,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.261 2012-06-13 10:11:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.262 2012-06-13 10:52:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.261 2012-06-13 10:11:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.262 2012-06-13 10:52:21 cg Exp $'
 ! !