equal
deleted
inserted
replaced
2476 valueStringInListEntryForValue:value |
2476 valueStringInListEntryForValue:value |
2477 "returns something to append to the name" |
2477 "returns something to append to the name" |
2478 |
2478 |
2479 |valString| |
2479 |valString| |
2480 |
2480 |
2481 valString := self plainValueStringInListEntryForValue:value. |
2481 valString := (self plainValueStringInListEntryForValue:value) ? ''. |
2482 valString isNil ifTrue:[^ '']. |
2482 value == inspectedObject ifTrue:[ |
|
2483 ^ ' <',valString,' (==self)>' |
|
2484 ]. |
2483 ^ ' <',valString,'>' |
2485 ^ ' <',valString,'>' |
2484 |
2486 |
2485 "Created: / 13-06-2012 / 12:04:31 / cg" |
2487 "Created: / 13-06-2012 / 12:04:31 / cg" |
2486 ! ! |
2488 ! ! |
2487 |
2489 |
3503 ! ! |
3505 ! ! |
3504 |
3506 |
3505 !InspectorView class methodsFor:'documentation'! |
3507 !InspectorView class methodsFor:'documentation'! |
3506 |
3508 |
3507 version |
3509 version |
3508 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.306 2013-04-19 09:38:09 cg Exp $' |
3510 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.307 2013-04-23 16:37:58 cg Exp $' |
3509 ! |
3511 ! |
3510 |
3512 |
3511 version_CVS |
3513 version_CVS |
3512 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.306 2013-04-19 09:38:09 cg Exp $' |
3514 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.307 2013-04-23 16:37:58 cg Exp $' |
3513 ! ! |
3515 ! ! |
3514 |
3516 |