--- a/DictionaryInspectorView.st	Tue Jun 04 15:02:54 2013 +0200
+++ b/DictionaryInspectorView.st	Tue Jun 04 15:02:55 2013 +0200
@@ -208,6 +208,17 @@
                    ).
     ].
 
+    (hasMore) ifTrue:[
+        items := items , #(                                  
+                      ('-')
+                      ('Show More'                   showMore               )
+                   ).
+        (inspectedObject size > (nShown * 2)) ifTrue:[
+            items := items , #(
+                        ('Show All'                     #showAll                )
+                          )
+        ].
+    ].
     monitorProcess isNil ifTrue:[
         items := items , #(
                        ('-')
@@ -647,6 +658,10 @@
     ^ super namedFieldList
 !
 
+numIndexedFields
+    ^ inspectedObject size
+!
+
 release 
     "release inspected object"
 
@@ -722,10 +737,10 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.80 2013-04-02 20:48:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.81 2013-06-04 13:02:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.80 2013-04-02 20:48:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.81 2013-06-04 13:02:55 cg Exp $'
 ! !