--- a/DialogBox.st	Fri Feb 15 09:30:01 2019 +0100
+++ b/DialogBox.st	Fri Feb 15 09:41:08 2019 +0100
@@ -1325,6 +1325,18 @@
     "Modified: / 26-08-2018 / 17:06:51 / Claus Gittinger"
 !
 
+information:aString with:arg
+    "launch a Dialog to tell user something"
+
+    self information:(aString bindWith:arg)
+
+    "
+     Dialog information:'help %1' with:'foo'
+    "
+
+    "Created: / 15-02-2019 / 09:40:50 / Claus Gittinger"
+!
+
 informationText:aString title:windowTitle
     "launch a Dialog to tell user something.
      The argument aString is shown as multiline, scrollable text"
@@ -1430,6 +1442,18 @@
     "Modified: / 29-05-1996 / 15:23:14 / cg"
     "Created: / 20-01-2012 / 15:54:26 / cg"
     "Modified: / 27-08-2018 / 12:10:11 / Claus Gittinger"
+!
+
+warn:aString with:arg
+    "launch a Dialog to warn user"
+
+    ^ self warn:(aString bindWith:arg)
+
+    "
+     Dialog warn:'some %1 message' with:'warning'
+    "
+
+    "Created: / 15-02-2019 / 09:40:17 / Claus Gittinger"
 ! !
 
 !DialogBox class methodsFor:'confirmation dialogs'!