--- a/Tools__InlineMessageDialog.st	Sun Mar 31 13:58:23 2013 +0200
+++ b/Tools__InlineMessageDialog.st	Sun Mar 31 19:05:03 2013 +0200
@@ -28,13 +28,13 @@
 "{ NameSpace: Tools }"
 
 ApplicationModel subclass:#InlineMessageDialog
-	instanceVariableNames:'messageHolder progressHolder backgroundColorHolder
-		backgroundColorOrDefaultHolder progressView panelView
-		panelViewComponents specHolder panelShownHolder panelHiddenHolder
-		worker layout changeLayoutUponShowHide'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-Tools'
+        instanceVariableNames:'messageHolder progressHolder backgroundColorHolder
+                backgroundColorOrDefaultHolder progressView panelView
+                panelViewComponents specHolder panelShownHolder panelHiddenHolder
+                worker layout changeLayoutUponShowHide'
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Interface-Tools'
 !
 
 !InlineMessageDialog class methodsFor:'documentation'!
@@ -318,7 +318,7 @@
 !InlineMessageDialog class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.9 2013-03-13 13:19:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.10 2013-03-31 17:05:03 vrany Exp $'
 ! !
 
 !InlineMessageDialog methodsFor:'accessing'!
@@ -406,6 +406,12 @@
     "Created: / 04-10-2012 / 19:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+doAbortIfWorking
+    worker notNil ifTrue:[ self doAbort ].
+
+    "Created: / 04-10-2012 / 19:20:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 doOK
     <resource: #uiCallback>
 
@@ -937,7 +943,7 @@
 !InlineMessageDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.9 2013-03-13 13:19:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.10 2013-03-31 17:05:03 vrany Exp $'
 !
 
 version_HG