--- a/InspectorView.st Fri May 03 20:17:30 2002 +0200
+++ b/InspectorView.st Mon May 06 07:56:20 2002 +0200
@@ -1474,15 +1474,17 @@
valueAtLine:lineNr
"helper - return the value of the selected entry"
- |idx|
+ |idx l|
(hideReceiver not
and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[
^ inspectedObject
].
- ((listView at:lineNr) startsWith:$-) ifTrue:[
- ^ self valueForSpecialLine:(listView at:lineNr)
+ ((l := listView at:lineNr) startsWith:$-) ifTrue:[
+ (l ~= '-') ifTrue:[
+ ^ self valueForSpecialLine:(listView at:lineNr)
+ ].
].
"/ a named instVar ?
@@ -1560,5 +1562,5 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.127 2002-05-02 08:55:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.128 2002-05-06 05:56:20 cg Exp $'
! !