--- a/OrderedCollectionInspectorView.st	Fri Jun 28 15:51:15 1996 +0200
+++ b/OrderedCollectionInspectorView.st	Fri Jun 28 15:54:40 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Interface-Inspector'
 !
 
-!OrderedCollectionInspectorView class methodsFor:'documentation'!
+!OrderedCollectionInspectorView  class methodsFor:'documentation'!
 
 copyright
 "
@@ -53,15 +53,17 @@
 
     n := inspectedObject size.
     (n > nShown) ifTrue:[
-	n := nShown.
-	hasMore := true.
+        n := nShown.
+        hasMore := true.
     ].
     aList := OrderedCollection new:n+1.
-    aList add:'self'.
+    hideReceiver ifFalse:[aList add:'self'].
     1 to:n do:[:index |
-	aList add:(index printString)
+        aList add:(index printString)
     ].
     ^ aList
+
+    "Modified: 28.6.1996 / 15:09:24 / cg"
 !
 
 fieldMenu
@@ -194,17 +196,21 @@
 
     |index|
 
-    (lineNr isNil or:[lineNr == 1]) ifTrue:[
-        ^ inspectedObject
+    hideReceiver ifFalse:[
+        (lineNr isNil or:[lineNr == 1]) ifTrue:[
+            ^ inspectedObject
+        ].
+        index := lineNr - 1.   "/ skip self
+    ] ifTrue:[
+        index := lineNr
     ].
-    index := lineNr - 1.   "/ skip self
     ^ inspectedObject at:index
 
-    "Modified: 11.6.1996 / 17:20:44 / cg"
+    "Modified: 28.6.1996 / 15:53:56 / cg"
 ! !
 
-!OrderedCollectionInspectorView class methodsFor:'documentation'!
+!OrderedCollectionInspectorView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.15 1996-06-12 12:12:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.16 1996-06-28 13:54:20 cg Exp $'
 ! !