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