Tools__BackgroundSourceProcessingService.st
branchjv
changeset 12265 f1b3696cf042
parent 12262 d25ef6bb0ef3
child 12401 4714b9640528
--- a/Tools__BackgroundSourceProcessingService.st	Tue Jul 24 18:17:26 2012 +0100
+++ b/Tools__BackgroundSourceProcessingService.st	Wed Jul 25 10:51:30 2012 +0100
@@ -157,12 +157,20 @@
 initialize
     job := (Smalltalk at:#BackgroundJob) 
                 named:self defaultJobName
-                on:[self process:true].
+                on:[
+                    Error handle:[:ex |
+                        (Dialog confirm:('Error while processing source:\\',ex description,'\\Debug ?') withCRs)
+                        ifTrue:[
+                            ex reject.
+                        ]
+                    ] do:[
+                        self process:true
+                    ]
+                ].
 
     "Created: / 29-07-2011 / 10:31:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-08-2011 / 16:47:53 / cg"
-    "Modified (format): / 26-09-2011 / 15:39:56 / cg"
     "Modified: / 24-01-2012 / 12:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-07-2012 / 16:17:21 / cg"
 ! !
 
 !BackgroundSourceProcessingService methodsFor:'processing'!
@@ -220,13 +228,13 @@
 !BackgroundSourceProcessingService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BackgroundSourceProcessingService.st,v 1.2 2012/06/05 21:59:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BackgroundSourceProcessingService.st,v 1.3 2012/07/19 15:19:59 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__BackgroundSourceProcessingService.st,v 1.2 2012/06/05 21:59:55 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__BackgroundSourceProcessingService.st,v 1.3 2012/07/19 15:19:59 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__BackgroundSourceProcessingService.st 8018 2012-07-18 17:00:57Z vranyj1 $'
+    ^ '$Id: Tools__BackgroundSourceProcessingService.st 8022 2012-07-25 09:51:30Z vranyj1 $'
 ! !