--- 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 $'
 ! !

--- a/SetInspectorView.st	Sat Sep 14 15:00:19 2002 +0200
+++ b/SetInspectorView.st	Sat Sep 14 19:31:42 2002 +0200
@@ -95,21 +95,24 @@
     "Modified: 28.6.1996 / 16:05:42 / cg"
 !
 
+indexList 
+    "return a list of indexes to show in the selectionList.
+     Set hasMore to true, if a '...' entry should be added."
+
+    ^ inspectedObject asSortedCollection:[:a :b | a displayString < b displayString].
+!
+
 indexedFieldList 
     "return a list of indexed-variable names to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
 
-    |aList n cls|
-
-    keys := inspectedObject asSortedCollection:[:a :b | a displayString < b displayString].
+    keys := self indexList.
     ^ keys collect:[:k | k isSymbol ifTrue:[
                              k printString
                          ] ifFalse:[
                              k displayString
                          ]
                    ].
-
-
 !
 
 release 
@@ -171,5 +174,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.17 2002-09-12 11:09:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.18 2002-09-14 17:31:35 cg Exp $'
 ! !