Tools__InlineMessageDialog.st
changeset 13853 002e319d4027
parent 12686 0920976ce7ef
child 14525 bd238db12086
--- a/Tools__InlineMessageDialog.st	Wed Feb 05 19:59:42 2014 +0100
+++ b/Tools__InlineMessageDialog.st	Wed Feb 05 19:59:44 2014 +0100
@@ -318,7 +318,7 @@
 !InlineMessageDialog class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.12 2013-04-19 09:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.13 2014-02-05 18:59:44 cg Exp $'
 ! !
 
 !InlineMessageDialog methodsFor:'accessing'!
@@ -386,18 +386,15 @@
         ] do:[
             AbortOperationRequest raise.
         ].
+    ].
+    (worker notNil and:[worker isDead not]) ifTrue:[
+        worker terminate.
+        "/ raise its prio to make it terminate quickly
         worker priority:(Processor userSchedulingPriority + 1).
-        worker terminate.
         worker := nil.
     ].
-"/    (worker notNil and:[worker isDead not]) ifTrue:[
-"/        worker terminate.
-"/        "/ raise its prio to make it terminate quickly
-"/        
-"/        worker := nil.
-"/    ].
 
-    "Modified: / 13-03-2013 / 13:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-04-2012 / 16:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doAbortIfWorking
@@ -410,14 +407,14 @@
     <resource: #uiCallback>
 
     (worker notNil and:[worker isDead not]) ifTrue:[
+        worker terminate.
         "/ raise its prio to make it terminate quickly
         worker priority:(Processor userSchedulingPriority + 1).
-        worker terminate.
         worker := nil.
     ].
     self hide.
 
-    "Modified: / 27-07-2012 / 15:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-03-2013 / 18:02:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !InlineMessageDialog methodsFor:'adding & removing components'!
@@ -937,15 +934,15 @@
 !InlineMessageDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.12 2013-04-19 09:37:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.13 2014-02-05 18:59:44 cg Exp $'
 !
 
 version_HG
 
-    ^ '§Changeset: <not expanded> §'
+    ^ '$Changeset: <not expanded> $'
 !
 
 version_SVN
-    ^ '§Id: Tools__InlineMessageDialog.st 7976 2012-04-11 16:14:22Z vranyj1 §'
+    ^ '$Id: Tools__InlineMessageDialog.st,v 1.13 2014-02-05 18:59:44 cg Exp $'
 ! !