--- 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