DebugView.st
changeset 1456 9bff6683235d
parent 1452 992b6025bfdf
child 1484 1e1e56b84b11
--- a/DebugView.st	Thu Feb 05 12:55:47 1998 +0100
+++ b/DebugView.st	Thu Feb 05 17:15:55 1998 +0100
@@ -939,7 +939,9 @@
 
             ObjectMemory flushInlineCaches.
 
-            enteredByInterrupt printCR.
+            DebuggingDebugger == true ifTrue:[
+                enteredByInterrupt printCR.
+            ].
             enteredByInterrupt ifTrue:[
                 "/ dont want to step through all intermediate
                 "/ (scheduler-) contexts; place a return-trap on the
@@ -974,7 +976,7 @@
 
     "Modified: / 17.4.1997 / 13:01:32 / stefan"
     "Created: / 30.10.1997 / 21:08:18 / cg"
-    "Modified: / 13.1.1998 / 15:28:53 / cg"
+    "Modified: / 5.2.1998 / 17:14:17 / cg"
 !
 
 openOn:aProcess
@@ -3775,6 +3777,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.188 1998-02-03 19:24:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.189 1998-02-05 16:15:55 cg Exp $'
 ! !
 DebugView initialize!