--- a/SetInspectorView.st	Mon Feb 02 17:43:19 2009 +0100
+++ b/SetInspectorView.st	Mon Feb 02 17:51:35 2009 +0100
@@ -108,6 +108,19 @@
     "return a list of indexes to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
 
+    inspectedObject size > nShown ifTrue:[
+        |coll|
+
+        coll := (SortedCollection new:nShown) sortBlock:[:a :b | a displayString < b displayString].
+        inspectedObject do:[:el |
+            coll add:el.
+            coll size >= nShown ifTrue:[ 
+                hasMore := true.
+                ^ coll
+            ].
+        ].
+    ].
+
     ^ inspectedObject asSortedCollection:[:a :b | a displayString < b displayString].
 !
 
@@ -191,5 +204,5 @@
 !SetInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.24 2006-10-09 10:48:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SetInspectorView.st,v 1.25 2009-02-02 16:51:35 cg Exp $'
 ! !