Tools__InlineMessageDialog.st
branchjv
changeset 12468 6504b3953a7e
parent 12435 1f1faf35be04
child 12517 3a904476a8d2
--- a/Tools__InlineMessageDialog.st	Wed Mar 13 01:04:29 2013 +0000
+++ b/Tools__InlineMessageDialog.st	Wed Mar 13 13:18:42 2013 +0000
@@ -106,7 +106,6 @@
 "
 ! !
 
-
 !InlineMessageDialog class methodsFor:'accessing-colors'!
 
 defaultInformationBackground
@@ -123,7 +122,6 @@
     "Created: / 10-04-2012 / 19:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog class methodsFor:'interface specs'!
 
 messageInfoSpec
@@ -317,14 +315,12 @@
       )
 ! !
 
-
 !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 $'
 ! !
 
-
 !InlineMessageDialog methodsFor:'accessing'!
 
 backgroundColor: aColor
@@ -362,7 +358,6 @@
     "Created: / 28-10-2010 / 18:24:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'accessing-presentation'!
 
 changeLayoutUponShowHide: aBoolean
@@ -377,7 +372,6 @@
     "Modified (comment): / 17-05-2012 / 13:56:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'actions'!
 
 doAbort
@@ -392,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
@@ -423,7 +420,6 @@
     "Modified: / 27-07-2012 / 15:42:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'adding & removing components'!
 
 addButton: aButton
@@ -525,7 +521,6 @@
     "Created: / 11-04-2012 / 00:51:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'aspects'!
 
 backgroundColorHolder
@@ -637,7 +632,6 @@
     "Modified: / 28-10-2010 / 18:29:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'change & update'!
 
 update:aspect with:parameter from:changedObject
@@ -652,7 +646,6 @@
     "Modified: / 10-04-2012 / 19:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'hooks'!
 
 commonPostBuild
@@ -681,7 +674,6 @@
     "Created: / 10-02-2012 / 10:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'private'!
 
 getMyView
@@ -780,7 +772,6 @@
     "Created: / 29-10-2010 / 11:48:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'utilities'!
 
 reset
@@ -875,7 +866,6 @@
     "Created: / 11-04-2012 / 13:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog methodsFor:'utilities-obsolete'!
 
 information: message 
@@ -944,7 +934,6 @@
     "Created: / 13-02-2012 / 16:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !InlineMessageDialog class methodsFor:'documentation'!
 
 version