diff -r e51b02f9f0b6 -r bd238db12086 Tools__InlineMessageDialog.st
--- a/Tools__InlineMessageDialog.st	Fri Jun 20 11:00:16 2014 +0200
+++ b/Tools__InlineMessageDialog.st	Fri Jun 20 15:03:00 2014 +0200
@@ -318,7 +318,7 @@
 !InlineMessageDialog class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.13 2014-02-05 18:59:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.14 2014-06-20 13:03:00 vrany Exp $'
 ! !
 
 !InlineMessageDialog methodsFor:'accessing'!
@@ -769,6 +769,26 @@
     "Created: / 29-10-2010 / 11:48:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!InlineMessageDialog methodsFor:'testing'!
+
+isMessageOrWarning
+    ^ self specHolder value == #messageInfoSpec.
+
+    "Created: / 20-06-2014 / 11:25:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isProgress
+    ^ self specHolder value == #progressInfoSpec.
+
+    "Created: / 20-06-2014 / 11:25:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isVisible
+    ^ self getMyView isVisible
+
+    "Created: / 20-06-2014 / 11:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !InlineMessageDialog methodsFor:'utilities'!
 
 reset
@@ -934,7 +954,7 @@
 !InlineMessageDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.13 2014-02-05 18:59:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__InlineMessageDialog.st,v 1.14 2014-06-20 13:03:00 vrany Exp $'
 !
 
 version_HG
@@ -943,6 +963,6 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__InlineMessageDialog.st,v 1.13 2014-02-05 18:59:44 cg Exp $'
+    ^ '$Id: Tools__InlineMessageDialog.st,v 1.14 2014-06-20 13:03:00 vrany Exp $'
 ! !