diff -r f205f06960fa -r a40158f53779 Tools__BackgroundSourceProcessingService.st --- 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 ?')