--- a/DictionaryInspectorView.st	Fri Jun 28 15:51:15 1996 +0200
+++ b/DictionaryInspectorView.st	Fri Jun 28 15:54:40 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Inspector'
 !
 
-!DictionaryInspectorView class methodsFor:'documentation'!
+!DictionaryInspectorView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -179,11 +179,11 @@
                                                ]
                                          ].
     aList := aList asOrderedCollection.
-    aList addFirst:'self'.
+    hideReceiver ifFalse:[aList addFirst:'self'].
     ^ aList
 
-    "Modified: 9.2.1996 / 21:16:07 / cg"
     "Modified: 8.5.1996 / 14:16:35 / stefan"
+    "Modified: 28.6.1996 / 15:09:15 / cg"
 !
 
 release 
@@ -213,19 +213,24 @@
 valueAtLine:lineNr
     "helper - return the value of the selected entry"
 
-    |key|
+    |key idx|
 
-    lineNr == 1 ifTrue:[
-        ^ inspectedObject
+    hideReceiver ifTrue:[
+        idx := lineNr.
+    ] ifFalse:[
+        lineNr == 1 ifTrue:[
+            ^ inspectedObject
+        ].
+        idx := lineNr - 1.
     ].
-    key := (keys at:lineNr - 1).
+    key := keys at:idx.
     ^ inspectedObject at:key ifAbsent:nil.
 
-    "Modified: 22.2.1996 / 17:56:42 / cg"
+    "Modified: 28.6.1996 / 15:52:47 / cg"
 ! !
 
-!DictionaryInspectorView class methodsFor:'documentation'!
+!DictionaryInspectorView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.23 1996-05-08 14:47:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.24 1996-06-28 13:54:40 cg Exp $'
 ! !