--- a/Tools__InlineMessageDialog.st	Wed Sep 11 17:03:10 2019 +0200
+++ b/Tools__InlineMessageDialog.st	Wed Sep 11 17:10:30 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -892,9 +894,7 @@
             self addButtonAbort.
             self progress: nil.
             self show.
-            [
-                aBlock value.    
-            ] on: ProgressNotification , ActivityNotification do:[:ex|
+            aBlock on: ActivityNotification do:[:ex|
                 |status color|
 
                 ex creator == ProgressNotification ifTrue:[
@@ -932,74 +932,28 @@
 
     "Created: / 11-04-2012 / 13:38:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 16-11-2018 / 09:52:27 / Claus Gittinger"
+    "Modified: / 11-09-2019 / 16:29:04 / Stefan Vogel"
 ! !
 
 !InlineMessageDialog methodsFor:'utilities-obsolete'!
 
-information: message 
+information: message
+    <resource: #obsolete>
 
     self information: message timeout: nil
 
     "Created: / 11-02-2012 / 23:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 11-09-2019 / 17:09:07 / Stefan Vogel"
 !
 
 information: message timeout: timeoutOrNil
+    <resource: #obsolete>
 
-    self reset.
-    self beInformation.
-    self message: message.
-    self addButtonOK.
-    self show.
-    timeoutOrNil isInteger ifTrue:[
-        [
-            Delay waitForSeconds: timeoutOrNil.
-            self hide.
-        ] fork.
-    ]
+    self obsoleteMethodWarning.
+    self showMessage:message closeAfter:timeoutOrNil.
 
     "Created: / 11-02-2012 / 23:14:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-progress: label while: block
-
-    worker := [
-        self reset.
-        self beProgress.
-        self message: label.
-        self addButtonAbort.
-        self progress: nil.
-        self show.
-        [
-            block value.    
-        ] on: ProgressNotification , ActivityNotification do:[:ex|
-            self progress: ex parameter.
-            ex messageText notNil ifTrue:[
-                self message: ex messageText.    
-            ].
-            ex proceed.
-        ].
-    ] newProcess.
-    worker addExitAction:[
-        self specHolder value == #progressInfoSpec ifTrue:[
-            self hide.
-        ].
-        worker := nil.
-    ].
-    worker resume.
-
-    "Created: / 10-02-2012 / 10:34:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-warning: message action: block labeled: label
-
-    self reset.
-    self beWarning.
-    self message: message.
-    self addButtonWithLabel: label action: block.
-    self addButtonOK.
-    self show
-
-    "Created: / 13-02-2012 / 16:59:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-09-2019 / 17:08:19 / Stefan Vogel"
 ! !
 
 !InlineMessageDialog class methodsFor:'documentation'!