--- a/DebugView.st Fri Jun 21 00:55:40 2013 +0200
+++ b/DebugView.st Fri Jun 21 01:00:24 2013 +0200
@@ -274,9 +274,7 @@
With nil count and time arguments, such an ignored breakpoint is reactivated"
|oldEntry ign|
-Transcript showCR:'++++++++++++++'.
-Transcript showCR:processOrNil.
-processOrNil isNil ifTrue:[self halt].
+
IgnoredHalts notNil ifTrue:[
self removeInactiveIgnores.
type == #halt ifTrue:[
@@ -4877,7 +4875,7 @@
context:currentContext
originator:nil) notNil]
) ifTrue:[
-self halt.
+ self breakPoint:#cg.
].
currentContext := currentContext findSpecialHandle:true raise:true. "search starts at currentContext sender"
"/ Transcript showCR:currentContext.
@@ -8499,15 +8497,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.595 2013-06-20 22:27:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.596 2013-06-20 23:00:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.595 2013-06-20 22:27:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.596 2013-06-20 23:00:24 cg Exp $'
!
version_SVN
- ^ '$Id: DebugView.st,v 1.595 2013-06-20 22:27:00 cg Exp $'
+ ^ '$Id: DebugView.st,v 1.596 2013-06-20 23:00:24 cg Exp $'
! !