--- a/ProcessMonitor.st	Sun Apr 02 13:45:20 1995 +0200
+++ b/ProcessMonitor.st	Tue Apr 11 18:31:23 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.9 1995-03-31 03:07:32 claus Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.10 1995-04-11 16:31:23 claus Exp $
 "
 !
 
@@ -389,31 +389,41 @@
 
 !ProcessMonitor methodsFor:'menu actions'!
 
+hideDead:aBoolean
+    hideDead := aBoolean
+!
+
 terminateProcess
+    "terminate the selected process"
+
     self selectedProcessesSend:#terminate
 !
 
 debugProcess
+    "open a debugger on the selected process"
+
     self selectedProcessesDo:[:p |
        Debugger openOn:p
     ]
 !
 
-hideDead:aBoolean
-    hideDead := aBoolean
-!
+abortProcess
+    "abort (raise AbortSignal in) the selected process"
 
-abortProcess
     self selectedProcessesDo:[:p |
 	p interruptWith:[AbortSignal raise]
     ]
 !
 
 inspectProcess
+    "open an inspector on the selected process"
+
     self selectedProcessesSend:#inspect
 !
 
 resumeProcess
+    "resume the selected process (i.e. let it run) "
+
     self selectedProcessesSend:#resume
 !
 
@@ -431,6 +441,7 @@
 			 '-'  
 			 'resume'  
 			 'suspend'  
+			 'stop'  
 			 'abort'
 			 'terminate'
 			 '-'  
@@ -445,6 +456,7 @@
 			 nil  
 			 resumeProcess  
 			 suspendProcess  
+			 stopProcess  
 			 abortProcess
 			 terminateProcess
 			 nil  
@@ -465,17 +477,29 @@
     ^ m
 !
 
+stopProcess
+    "stop the selected process - not even interrupts will wake it up"
+
+    self selectedProcessesSend:#stop
+!
+
 suspendProcess
+    "suspend the selected process - interrupts will let it run again"
+
     self selectedProcessesSend:#suspend
 !
 
 raisePrio
+    "raise the selected processes priority"
+
     self selectedProcessesDo:[:p |
        p priority:(p priority + 1)
     ]
 !
 
 lowerPrio
+    "lower the selected processes priority"
+
     self selectedProcessesDo:[:p |
        p priority:(p priority - 1)
     ]
@@ -511,4 +535,3 @@
     ].
     ^ super keyPress:key x:x y:y
 ! !
-