#QUALITY by cg cvs_MAIN
authorClaus Gittinger <cg@exept.de>
Tue, 08 Nov 2016 11:30:40 +0100
branchcvs_MAIN
changeset 994 31a9769be125
parent 993 81f5cd10ee50
child 995 0191b93a64a6
#QUALITY by cg class: SmallSense::CodeHighlightingService changed: #initialize
SmallSense__CodeHighlightingService.st
--- a/SmallSense__CodeHighlightingService.st	Sun Nov 06 11:25:33 2016 +0100
+++ b/SmallSense__CodeHighlightingService.st	Tue Nov 08 11:30:40 2016 +0100
@@ -152,12 +152,14 @@
                 on:[:interval |
                     ControlInterrupt handle:[:ex |
                         (codeView topView isKindOf:DebugView) ifTrue:[
-                            Transcript showCR:'halt ignored in debugger''s syntax job'.
+                            'CodeHighlighter [info]: halt ignored in debugger''s syntax job' errorPrintCR.
                             ex proceed.
                         ].
                         ex reject.
                     ] do:[
                         Error handle:[:ex |
+                            ('CodeHighlighter [info]: Error caught while processing source: ',ex description) errorPrintCR.
+                            ex suspendedContext fullPrintAll.
                             (Dialog confirm:('Error while processing source:\\',ex description,'\\Debug ?') withCRs)
                             ifTrue:[
                                 ex reject.