Tools__InlineMessageDialog.st
changeset 12462 7466535c9b47
parent 12416 1171d0e7a363
child 12517 3a904476a8d2
child 12601 7b0081e8dd1a
--- a/Tools__InlineMessageDialog.st	Wed Mar 13 14:14:03 2013 +0100
+++ b/Tools__InlineMessageDialog.st	Wed Mar 13 14:19:13 2013 +0100
@@ -318,7 +318,7 @@
 !InlineMessageDialog class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.8 2013-02-21 16:30:02 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.9 2013-03-13 13:19:13 vrany Exp $'
 ! !
 
 !InlineMessageDialog methodsFor:'accessing'!
@@ -386,15 +386,18 @@
         ] do:[
             AbortOperationRequest raise.
         ].
-    ].
-    (worker notNil and:[worker isDead not]) ifTrue:[
+        worker priority:(Processor userSchedulingPriority + 1).
         worker terminate.
-        "/ raise its prio to make it terminate quickly
-        worker priority:(Processor userSchedulingPriority + 1).
         worker := nil.
     ].
+"/    (worker notNil and:[worker isDead not]) ifTrue:[
+"/        worker terminate.
+"/        "/ raise its prio to make it terminate quickly
+"/        
+"/        worker := nil.
+"/    ].
 
-    "Modified: / 11-04-2012 / 16:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-03-2013 / 13:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doAbortIfWorking
@@ -934,7 +937,12 @@
 !InlineMessageDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.8 2013-02-21 16:30:02 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.9 2013-03-13 13:19:13 vrany Exp $'
+!
+
+version_HG
+
+    ^ '§Changeset: <not expanded> §'
 !
 
 version_SVN