--- a/MiniDebugger.st	Wed Aug 04 16:35:58 1999 +0200
+++ b/MiniDebugger.st	Wed Aug 04 17:08:20 1999 +0200
@@ -48,29 +48,7 @@
 
 !MiniDebugger class methodsFor:'instance creation'!
 
-enter
-    "enter a miniDebugger"
-
-    ^ self enterWithMessage:'MiniDebugger entered'
-
-    "Modified: / 19.5.1999 / 18:15:03 / cg"
-!
-
-enter:aContext
-    "enter a miniDebugger - for protocol compatibility with the GUI-debugger"
-
-    ^ self enterWithMessage:'MiniDebugger entered'
-
-    "Modified: / 19.5.1999 / 18:13:06 / cg"
-!
-
-enter:aContext withMessage:aString
-    "enter a miniDebugger - for protocol compatibility with the GUI-debugger"
-
-    ^ self enterWithMessage:aString
-!
-
-enterWithMessage:aString
+enterWithMessage:aString mayProceed:mayProceed
     "enter a miniDebugger"
 
     |active|
@@ -105,7 +83,7 @@
             AbortSignal raise.
         ]
     ] ifTrue:[
-        self new enter.
+        self new enterMayProceed:mayProceed.
     ].
     ^ nil
 
@@ -176,7 +154,7 @@
 
 !MiniDebugger methodsFor:'interrupt handling'!
 
-enter
+enterMayProceed:mayProceed
     |leaveCmd stillHere|
 
     stillHere := true.
@@ -236,7 +214,7 @@
         ] ifFalse:[
             'stepInterrupt: no context' errorPrintCR
         ].
-        self enter
+        self enterMayProceed:true
     ] ifFalse:[
         where notNil ifTrue:[
             traceBlock notNil ifTrue:[
@@ -700,5 +678,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.43 1999-07-31 12:37:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.44 1999-08-04 15:08:20 cg Exp $'
 ! !