InspectorView.st
changeset 3645 d88ce5dea1ce
parent 3639 a83f29cc3332
child 3657 8eb3e03a449b
--- 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 $'
 ! !