--- a/DialogBox.st	Thu Jan 19 14:01:23 2012 +0100
+++ b/DialogBox.st	Fri Jan 20 15:54:44 2012 +0100
@@ -1254,6 +1254,36 @@
     "
 
     "Modified: 29.5.1996 / 15:23:14 / cg"
+!
+
+warn:aString title:windowTitle
+    "launch a Dialog to warn user"
+
+    |currentScreen|
+
+    ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
+        ^ currentScreen 
+            nativeWarnOK:aString
+            title:windowTitle
+    ].
+    self showAndThenDestroyBox:(WarningBox title:aString label:windowTitle)
+
+    "
+     Dialog warn:'some warning message'
+
+     Dialog warn:('some text with italic emphasis' asText 
+                        emphasizeFrom:16 to:22 with:#italic)
+
+     Dialog warn:('some warning message' asText 
+                        emphasizeAllWith:(#color->Color red))
+
+     Dialog warn:('some text with color emphasis' asText 
+                        emphasizeFrom:6 to:10 with:(#color->Color blue);
+                        emphasizeFrom:16 to:20 with:(#color->Color red))
+    "
+
+    "Modified: / 29-05-1996 / 15:23:14 / cg"
+    "Created: / 20-01-2012 / 15:54:26 / cg"
 ! !
 
 !DialogBox class methodsFor:'confirmation dialogs'!
@@ -9665,11 +9695,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.321 2011-11-08 12:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.322 2012-01-20 14:54:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.321 2011-11-08 12:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.322 2012-01-20 14:54:44 cg Exp $'
 ! !
 
 DialogBox initialize!