--- a/MiniDebugger.st	Tue Dec 17 10:01:57 2002 +0100
+++ b/MiniDebugger.st	Thu Dec 19 15:39:32 2002 +0100
@@ -448,10 +448,10 @@
             ]
         ].
 
-	(cmd == $S) ifTrue:[
-	    valid := true.
-	    ObjectMemory snapShotOn:'crash.img'.
-	].
+        (cmd == $S) ifTrue:[
+            valid := true.
+            ObjectMemory snapShotOn:'crash.img'.
+        ].
 
         (cmd == $B) ifTrue:[
             valid := true.
@@ -489,6 +489,13 @@
             Processor activeProcess vmTrace:false.
         ].
 
+        (cmd == $R) ifTrue:[
+            valid := true. 
+            proc notNil ifTrue:[
+                proc resume.
+            ]
+        ].
+
         (cmd == $T) ifTrue:[
             valid := true. 
             proc notNil ifTrue:[
@@ -502,7 +509,7 @@
             ]
         ].
 
-        (cmd == $S) ifTrue:[
+        (cmd == $W) ifTrue:[
             valid := true. 
             proc notNil ifTrue:[
                 'stopping process id: ' print. id printCR.
@@ -515,8 +522,11 @@
         (cmd == $a) ifTrue:[
             "without id-arg, this is handled by caller"
             proc notNil ifTrue:[
+                'aborting process id: ' print. id printCR.
                 valid := true.
                 proc interruptWith:[AbortSignal raise]
+            ] ifFalse:[
+                'aborting' printCR.
             ]
         ].
 
@@ -566,6 +576,8 @@
    t ..... trace (continue with trace)
    a [id]. abort (i.e. raise abort signal) in (current) process
    T [id]. terminate (current) process
+   W [id]. stop (current) process
+   R [id]. resume (current) process
    Q [id]. quick terminate (current) process - no unwinds or cleanup
 
    P ..... list processes
@@ -758,5 +770,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.55 2001-11-16 17:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.56 2002-12-19 14:39:32 cg Exp $'
 ! !