--- a/DialogBox.st	Fri Mar 06 19:30:35 2020 +0100
+++ b/DialogBox.st	Fri Mar 06 20:20:32 2020 +0100
@@ -1232,6 +1232,11 @@
 
     |box|
 
+    UserPreferences current suppressDialogBoxForWarnings ifTrue:[
+        aBlock valueWithOptionalArgument:nil.
+        ^ self
+    ].
+
     [
         box := InfoBox title:aString.
         box hideButtons.
@@ -1263,6 +1268,11 @@
 
     |box subProcess|
 
+    UserPreferences current suppressDialogBoxForWarnings ifTrue:[
+        aBlock valueWithOptionalArgument:nil.
+        ^ self.
+    ].
+
     box := InfoBox title:aString.
     canCancel ifTrue:[
         box okText:(self classResources string:'Abort').
@@ -1316,6 +1326,8 @@
 
     |currentScreen|
 
+    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+
     ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
         ^ currentScreen 
             nativeInformationOK:aString
@@ -1361,6 +1373,8 @@
 
     |dialog textHolder|
 
+    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+
     textHolder := ValueHolder new.
     dialog := Dialog 
                 forRequestText:'' editViewClass:TextView
@@ -1383,6 +1397,8 @@
 
     |dialog textHolder|
 
+    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+
     textHolder := ValueHolder new.
     dialog := Dialog 
                 forRequestText:title editViewClass:TextView
@@ -1430,6 +1446,8 @@
 
     |currentScreen|
 
+    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+
     ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
         ^ currentScreen 
             nativeWarnOK:aString