equal
deleted
inserted
replaced
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 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" |
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.307 2013-04-23 16:37:58 cg Exp $' |
3510 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $' |
3511 ! |
3511 ! |
3512 |
3512 |
3513 version_CVS |
3513 version_CVS |
3514 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.307 2013-04-23 16:37:58 cg Exp $' |
3514 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.308 2013-05-07 18:11:52 cg Exp $' |
3515 ! ! |
3515 ! ! |
3516 |
3516 |