equal
deleted
inserted
replaced
3237 for other objects, an instance-specific inspectorValueStringInListFor:self is called." |
3237 for other objects, an instance-specific inspectorValueStringInListFor:self is called." |
3238 |
3238 |
3239 |s| |
3239 |s| |
3240 |
3240 |
3241 "/ UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil]. |
3241 "/ UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil]. |
|
3242 value isBridgeProxy ifTrue:[ |
|
3243 "avoid sending out messages" |
|
3244 ^ '>>Bridge Proxy<<' |
|
3245 ]. |
3242 value isProxy ifTrue:[ |
3246 value isProxy ifTrue:[ |
3243 "avoid sending out messages" |
3247 "avoid sending out messages" |
3244 ^ '>>Proxy<<' |
3248 ^ '>>Proxy<<' |
3245 ]. |
3249 ]. |
3246 value isBridgeProxy ifTrue:[ |
|
3247 "avoid sending out messages" |
|
3248 ^ '>>Bridge Proxy<<' |
|
3249 ]. |
|
3250 value isLazyValue ifTrue:[ |
3250 value isLazyValue ifTrue:[ |
3251 "do not block on not yet finished Futures et al" |
3251 "do not block on not yet finished Futures et al" |
3252 ^ '>>Lazy value<<' |
3252 ^ '>>Lazy value<<' |
3253 ]. |
3253 ]. |
3254 value class == ValueHolder ifTrue:[ |
3254 value class == ValueHolder ifTrue:[ |
3268 ^ value string inspectorValueStringInListFor:self |
3268 ^ value string inspectorValueStringInListFor:self |
3269 ]. |
3269 ]. |
3270 ^ value inspectorValueStringInListFor:self |
3270 ^ value inspectorValueStringInListFor:self |
3271 |
3271 |
3272 "Created: / 13-06-2012 / 12:50:26 / cg" |
3272 "Created: / 13-06-2012 / 12:50:26 / cg" |
3273 "Modified (format): / 29-05-2019 / 15:08:48 / Claus Gittinger" |
3273 "Modified: / 29-05-2019 / 22:54:09 / Claus Gittinger" |
3274 ! |
3274 ! |
3275 |
3275 |
3276 stringWithAllClassVarValues |
3276 stringWithAllClassVarValues |
3277 ^ self stringWithAllClassVarValuesFor:object level:0 |
3277 ^ self stringWithAllClassVarValuesFor:object level:0 |
3278 ! |
3278 ! |