#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Wed, 10 Jul 2019 18:23:10 +0200
changeset 6625 c72c8b4646c4
parent 6624 67b49f362dd6
child 6626 07f0100f7064
#FEATURE by cg class: DialogBox class added: #warn:with:with:
DialogBox.st
--- a/DialogBox.st	Tue Jul 09 15:27:30 2019 +0200
+++ b/DialogBox.st	Wed Jul 10 18:23:10 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -1464,6 +1466,18 @@
     "
 
     "Created: / 15-02-2019 / 09:40:17 / Claus Gittinger"
+!
+
+warn:aString with:arg1 with:arg2
+    "launch a Dialog to warn user"
+
+    ^ self warn:(aString bindWith:arg1 with:arg2)
+
+    "
+     Dialog warn:'some %1 message %2' with:'warning' with:'with argument'
+    "
+
+    "Created: / 10-07-2019 / 18:17:57 / Claus Gittinger"
 ! !
 
 !DialogBox class methodsFor:'confirmation dialogs'!