--- a/Tools__BackgroundSourceProcessingService.st Mon Jul 06 17:13:48 2015 +0200
+++ b/Tools__BackgroundSourceProcessingService.st Mon Jul 06 17:20:05 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2006 by eXept Software AG
All Rights Reserved
@@ -238,6 +240,18 @@
ex suspendedContext fullPrintAllOn: Transcript.
] ifFalse:[
(ControlInterrupt accepts:ex creator) ifTrue:[
+ "/ also deal with ignored breakpoints here;
+ "/ otherwise, it is almost impossible to place a breakpoint into
+ "/ RB-code, and ignoring it...
+ (DebugView
+ isHaltToBeIgnoredIn:(ex suspendedContext method)
+ atLineNr:1
+ context:(ex suspendedContext)
+ modifyEntryCount:false
+ ) ifTrue:[
+ Transcript showCR:'breakpoint ignored in background processing'.
+ ^ ex proceed.
+ ].
msg := ('Halt/Breakpoint while processing source:\',ex description allBold,'\\in: ',ex suspendedContext printString,'\\Debug ?')
] ifFalse:[
msg := ('Error while processing source:\',ex description allBold,'\\in: ',ex suspendedContext printString,'\\Debug ?')