OrderedCollectionInspectorView.st
changeset 618 06a79d5ab531
parent 510 6543e55fb227
child 645 16a618dcbb43
--- a/OrderedCollectionInspectorView.st	Mon Jun 10 22:17:07 1996 +0200
+++ b/OrderedCollectionInspectorView.st	Wed Jun 12 14:12:02 1996 +0200
@@ -194,16 +194,17 @@
 
     |index|
 
-    lineNr == 1 ifTrue:[
-	^ inspectedObject
+    (lineNr isNil or:[lineNr == 1]) ifTrue:[
+        ^ inspectedObject
     ].
     index := lineNr - 1.   "/ skip self
     ^ inspectedObject at:index
 
+    "Modified: 11.6.1996 / 17:20:44 / cg"
 ! !
 
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.14 1996-04-25 16:32:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.15 1996-06-12 12:12:02 cg Exp $'
 ! !