SmallSense__CodeHighlightingService.st
branchcvs_MAIN
changeset 880 0142cd41af4a
parent 864 a770d6723f4e
child 970 7c53ed9c6799
--- 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>"