InspectorView.st
changeset 18795 3ecc82b45023
parent 18789 8ff9798593ec
child 18797 b035941a8e4d
--- a/InspectorView.st	Wed May 29 03:28:12 2019 +0000
+++ b/InspectorView.st	Wed May 29 15:23:55 2019 +0200
@@ -3232,12 +3232,21 @@
 plainValueStringInListEntryForValue:value
     "returns nil or a string to show in angle brackets (or parenthesis) after the
      name in the field list.
-     This is the string shown in the name list on the left"
+     This is the string shown in the name list on the left.
+     For most wellknown classes, the code below generates this;
+     for other objects, an instance-specific inspectorValueStringInListFor:self is called."
 
     |s|
 
     "/ UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil].
-
+    value isProxy ifTrue:[
+        "avoid sending out messages"
+        ^ '>>Proxy<<'
+    ].
+    value isBridgeProxy ifTrue:[
+        "avoid sending out messages"
+        ^ '>>Bridge Proxy<<'
+    ].
     value isLazyValue ifTrue:[
         "do not block on not yet finished Futures et al"
         ^ '>>Lazy value<<'
@@ -3252,8 +3261,8 @@
         ].
         ^ nil
     ].
-    (value isProtoObject or:[value isNumber or:[value isBoolean]]) ifTrue:[
-        ^ self basicDisplayStringForValue:value "value printString"
+    (value isProtoObject or:[value isNumber or:[value isBoolean or:[value isCharacter]]]) ifTrue:[
+        ^ self basicDisplayStringForValue:value
     ].
     value isText ifTrue:[
         ^ value string inspectorValueStringInListFor:self
@@ -3261,6 +3270,7 @@
     ^ value inspectorValueStringInListFor:self
 
     "Created: / 13-06-2012 / 12:50:26 / cg"
+    "Modified (format): / 29-05-2019 / 15:08:48 / Claus Gittinger"
 !
 
 stringWithAllClassVarValues