--- a/SmallSense__CodeHighlightingService.st Fri Sep 04 11:36:36 2015 +0200
+++ b/SmallSense__CodeHighlightingService.st Tue Sep 22 10:13:21 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
Copyright (C) 2013-2014 Jan Vrany
@@ -150,14 +152,22 @@
job := (Smalltalk at:#BackgroundQueueProcessingJob)
named:self defaultJobName
on:[:interval |
- Error handle:[:ex |
- (Dialog confirm:('Error while processing source:\\',ex description,'\\Debug ?') withCRs)
- ifTrue:[
- ex reject.
+ ControlInterrupt handle:[:ex |
+ (codeView topView isKindOf:DebugView) ifTrue:[
+ Transcript showCR:'halt ignored in debugger''s syntax job'.
+ ex proceed.
+ ].
+ ex reject.
+ ] do:[
+ Error handle:[:ex |
+ (Dialog confirm:('Error while processing source:\\',ex description,'\\Debug ?') withCRs)
+ ifTrue:[
+ ex reject.
+ ]
+ ] do:[
+ self process:true changed: interval
]
- ] do:[
- self process:true changed: interval
- ]
+ ].
].
"Created: / 03-08-2013 / 11:08:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"