--- a/OrderedCollectionInspectorView.st	Tue Sep 25 14:57:48 2001 +0200
+++ b/OrderedCollectionInspectorView.st	Tue Sep 25 15:02:35 2001 +0200
@@ -71,40 +71,40 @@
 
     hasMore ifTrue:[
         items := #(                                  
-                      ('inspect'                     doInspect              )
-                      ('basicInspect'                doBasicInspect         )
-                      ('inspect hierarchical'        doNewInspect           )
+                      ('Inspect'                     doInspect              )
+                      ('BasicInspect'                doBasicInspect         )
+                      ('Inspect hierarchical'        doNewInspect           )
                       ('-')
-                      ('ref chains'                  showReferences         )
+                      ('Ref chains'                  showReferences         )
                       ('-')
-                      ('browse'                      browse                 )
-                      ('browse class hierarchy'      browseClassHierarchy   )
-                      ('browse full class protocol'  browseFullClassProtocol)
+                      ('Browse'                      browse                 )
+"/                      ('Browse class hierarchy'      browseClassHierarchy   )
+"/                      ('Browse full class protocol'  browseFullClassProtocol)
                       ('-')
-                      ('remove'                      removeIndex            )
+                      ('Remove'                      removeIndex            )
                       ('-')
-                      ('show more'                   showMore               )
+                      ('Show more'                   showMore               )
                    ).
     ] ifFalse:[
         items := #(
-                      ('inspect'                     doInspect              )
-                      ('basicInspect'                doBasicInspect         )
-                      ('inspect hierarchical'        doNewInspect           )
+                      ('Inspect'                     doInspect              )
+                      ('BasicInspect'                doBasicInspect         )
+                      ('Inspect hierarchical'        doNewInspect           )
                       ('-')
-                      ('ref chains'                  showReferences         )
+                      ('Ref chains'                  showReferences         )
                       ('-')
-                      ('browse'                      browse                 )
-                      ('browse class hierarchy'      browseClassHierarchy   )
-                      ('browse full class protocol'  browseFullClassProtocol)
+                      ('Browse'                      browse                 )
+"/                      ('Browse class hierarchy'      browseClassHierarchy   )
+"/                      ('Browse full class protocol'  browseFullClassProtocol)
                       ('-')
-                      ('remove'                      removeIndex            )
+                      ('Remove'                      removeIndex            )
                    ).
     ].
 
     monitorProcess isNil ifTrue:[
-        items := items , #( ('-') ('start monitor' doStartMonitor)).
+        items := items , #( ('-') ('Start monitor' doStartMonitor)).
     ] ifFalse:[
-        items := items , #( ('-') ('stop monitor' doStopMonitor)).
+        items := items , #( ('-') ('Stop monitor' doStopMonitor)).
     ].
 
     m := PopUpMenu
@@ -171,5 +171,5 @@
 !OrderedCollectionInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.29 2000-08-17 23:11:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.30 2001-09-25 13:02:21 cg Exp $'
 ! !