--- a/OrderedCollectionInspectorView.st	Wed Jun 13 09:53:17 2012 +0200
+++ b/OrderedCollectionInspectorView.st	Wed Jun 13 09:53:33 2012 +0200
@@ -87,8 +87,13 @@
     (hasMore) ifTrue:[
         items := items , #(                                  
                       ('-')
-                      ('Show more'                   showMore               )
+                      ('Show More'                   showMore               )
                    ).
+        (object size > (nShown * 2)) ifTrue:[
+            items := items , #(
+                        ('Show All'                     #showAll                )
+                          )
+        ].
     ].
 
     monitorProcess isNil ifTrue:[
@@ -114,7 +119,7 @@
 
     ^ m
 
-    "Modified: / 27-01-2011 / 11:49:59 / cg"
+    "Modified: / 13-06-2012 / 09:51:52 / cg"
 ! !
 
 !OrderedCollectionInspectorView methodsFor:'private'!
@@ -179,9 +184,9 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.45 2012-06-06 10:17:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.46 2012-06-13 07:53:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.45 2012-06-06 10:17:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.46 2012-06-13 07:53:33 cg Exp $'
 ! !