--- a/OrderedCollectionInspectorView.st	Sat Sep 14 15:00:19 2002 +0200
+++ b/OrderedCollectionInspectorView.st	Sat Sep 14 19:31:42 2002 +0200
@@ -126,11 +126,11 @@
     "Modified: / 21.5.1998 / 13:32:09 / cg"
 !
 
-indexedFieldList 
-    "return a list of indexed-variable names to show in the selectionList.
+indexList 
+    "return a list of indexes to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
 
-    |n cls|
+    |n|
 
     n := inspectedObject size.
     (n > nShown) ifTrue:[
@@ -138,8 +138,7 @@
         hasMore := true.
     ].
 
-    ^ (1 to:n) collect:[:i | i printString].
-
+    ^ (1 to:n)
 ! !
 
 !OrderedCollectionInspectorView methodsFor:'user interaction'!
@@ -170,5 +169,5 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.31 2002-09-12 11:09:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.32 2002-09-14 17:31:42 cg Exp $'
 ! !