--- 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!