equal
deleted
inserted
replaced
2350 UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil]. |
2350 UserPreferences current showTypeIndicatorInInspector ifFalse:[^ nil]. |
2351 |
2351 |
2352 value class == ValueHolder ifTrue:[ |
2352 value class == ValueHolder ifTrue:[ |
2353 s := self plainValueStringInListEntryForValue:value value. |
2353 s := self plainValueStringInListEntryForValue:value value. |
2354 s notNil ifTrue:[ |
2354 s notNil ifTrue:[ |
2355 ^ '[[' , s , ']]' |
2355 ^ '{' , s , '}' |
2356 ]. |
2356 ]. |
2357 ^ nil |
2357 ^ nil |
2358 ]. |
2358 ]. |
2359 value isLazyValue ifTrue:[ |
2359 value isLazyValue ifTrue:[ |
2360 "do not block on not yet finished Futures et al" |
2360 "do not block on not yet finished Futures et al" |
2478 |
2478 |
2479 |valString| |
2479 |valString| |
2480 |
2480 |
2481 valString := (self plainValueStringInListEntryForValue:value) ? ''. |
2481 valString := (self plainValueStringInListEntryForValue:value) ? ''. |
2482 (inspectedObject notNil and:[value == inspectedObject]) ifTrue:[ |
2482 (inspectedObject notNil and:[value == inspectedObject]) ifTrue:[ |
2483 ^ ' <',valString,' (==self)>' |
2483 ^ ' (',valString,') (==self)' |
2484 ]. |
2484 ]. |
2485 ^ ' <',valString,'>' |
2485 ^ ' (',valString,')' |
2486 |
2486 |
2487 "Created: / 13-06-2012 / 12:04:31 / cg" |
2487 "Created: / 13-06-2012 / 12:04:31 / cg" |
2488 ! ! |
2488 ! ! |
2489 |
2489 |
2490 !InspectorView methodsFor:'private'! |
2490 !InspectorView methodsFor:'private'! |
3505 ! ! |
3505 ! ! |
3506 |
3506 |
3507 !InspectorView class methodsFor:'documentation'! |
3507 !InspectorView class methodsFor:'documentation'! |
3508 |
3508 |
3509 version |
3509 version |
3510 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $' |
3510 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.309 2013-05-28 19:30:59 cg Exp $' |
3511 ! |
3511 ! |
3512 |
3512 |
3513 version_CVS |
3513 version_CVS |
3514 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $' |
3514 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.309 2013-05-28 19:30:59 cg Exp $' |
3515 ! ! |
3515 ! ! |
3516 |
3516 |