--- a/DialogBox.st	Wed Dec 22 19:32:49 2010 +0100
+++ b/DialogBox.st	Wed Dec 22 19:33:41 2010 +0100
@@ -1208,6 +1208,25 @@
     "Modified: 29.5.1996 / 15:23:03 / cg"
 !
 
+information:aString title:windowTitle
+    "launch a Dialog to tell user something"
+
+    |currentScreen|
+
+    ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
+        ^ currentScreen 
+            nativeInformationOK:aString
+            title:windowTitle
+    ].
+    self showAndThenDestroyBox:(InfoBox title:aString label:windowTitle)
+
+    "
+     Dialog information:'help' title:'Attention'
+    "
+
+    "Created: / 22-12-2010 / 19:33:23 / cg"
+!
+
 warn:aString
     "launch a Dialog to warn user"
 
@@ -9507,11 +9526,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.304 2010-11-17 18:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.305 2010-12-22 18:33:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.304 2010-11-17 18:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.305 2010-12-22 18:33:41 cg Exp $'
 ! !
 
 DialogBox initialize!