equal
deleted
inserted
replaced
1472 ! |
1472 ! |
1473 |
1473 |
1474 valueAtLine:lineNr |
1474 valueAtLine:lineNr |
1475 "helper - return the value of the selected entry" |
1475 "helper - return the value of the selected entry" |
1476 |
1476 |
1477 |idx| |
1477 |idx l| |
1478 |
1478 |
1479 (hideReceiver not |
1479 (hideReceiver not |
1480 and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[ |
1480 and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[ |
1481 ^ inspectedObject |
1481 ^ inspectedObject |
1482 ]. |
1482 ]. |
1483 |
1483 |
1484 ((listView at:lineNr) startsWith:$-) ifTrue:[ |
1484 ((l := listView at:lineNr) startsWith:$-) ifTrue:[ |
1485 ^ self valueForSpecialLine:(listView at:lineNr) |
1485 (l ~= '-') ifTrue:[ |
|
1486 ^ self valueForSpecialLine:(listView at:lineNr) |
|
1487 ]. |
1486 ]. |
1488 ]. |
1487 |
1489 |
1488 "/ a named instVar ? |
1490 "/ a named instVar ? |
1489 idx := self instVarIndexForLine:lineNr. |
1491 idx := self instVarIndexForLine:lineNr. |
1490 idx notNil ifTrue:[ |
1492 idx notNil ifTrue:[ |
1558 ! ! |
1560 ! ! |
1559 |
1561 |
1560 !InspectorView class methodsFor:'documentation'! |
1562 !InspectorView class methodsFor:'documentation'! |
1561 |
1563 |
1562 version |
1564 version |
1563 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.127 2002-05-02 08:55:55 cg Exp $' |
1565 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.128 2002-05-06 05:56:20 cg Exp $' |
1564 ! ! |
1566 ! ! |