--- a/ProcessMonitor.st	Fri Sep 28 16:33:25 2001 +0200
+++ b/ProcessMonitor.st	Fri Sep 28 16:47:51 2001 +0200
@@ -581,32 +581,32 @@
 
     device ctrlDown ifTrue:[
         items := #( 
-                        ('\c detail' toggleDetail)
+                        ('\c Detail' toggleDetail)
                         ('-')  
-                        ('hard terminate'        hardTerminateProcess)
+                        ('Hard Terminate'        hardTerminateProcess)
                   ).
     ] ifFalse:[
         items := #(
-                             ('inspect'               inspectSelection)
-                             ('debug'                 debugProcess)
-"/                             ('debug when resumed'    debugProcessWhenResumed)
+                             ('Inspect'               inspectSelection)
+                             ('Debug'                 debugProcess)
+"/                             ('Debug when resumed'    debugProcessWhenResumed)
                              ('-')  
-                             ('resume'                resumeProcess)
-                             ('suspend'               suspendProcess)
-                             ('stop'                  stopProcess)
+                             ('Resume'                resumeProcess)
+                             ('Suspend'               suspendProcess)
+                             ('Stop'                  stopProcess)
                              ('-')   
-                             ('abort'                 abortProcess)
-                             ('terminate'             terminateProcess)
-                             ('terminate group'       terminateProcessGroup)
-                             ('restart'               restartProcess)
+                             ('Abort'                 abortProcess)
+                             ('Terminate'             terminateProcess)
+                             ('Terminate group'       terminateProcessGroup)
+                             ('Restart'               restartProcess)
                              ('-')  
-                             ('raise prio'            raisePrio)
-                             ('lower prio'            lowerPrio)
+                             ('Raise prio'            raisePrio)
+                             ('Lower prio'            lowerPrio)
                             ).
 
         updateProcess isNil ifTrue:[
             items := #( 
-                        ('update' updateView) 
+                        ('Update' updateView) 
                         ('-')
                       ) , items.
         ].
@@ -763,5 +763,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.76 2001-06-12 09:57:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.77 2001-09-28 14:47:51 cg Exp $'
 ! !