# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1583527130 -3600
# Node ID 58687d2b8474715ecb8850ab62a7a920ccbba223
# Parent  b0895ffe7bd613dce348cf6e9a192b88f8f2bd40
#REFACTORING by cg
class: DialogBox class
changed:
	#information:title:
	#informationText:title:
	#informationText:title:windowTitle:
	#warn:title:

diff -r b0895ffe7bd6 -r 58687d2b8474 DialogBox.st
--- a/DialogBox.st	Fri Mar 06 20:20:32 2020 +0100
+++ b/DialogBox.st	Fri Mar 06 21:38:50 2020 +0100
@@ -1326,7 +1326,7 @@
 
     |currentScreen|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+"/    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
         ^ currentScreen 
@@ -1373,7 +1373,7 @@
 
     |dialog textHolder|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+"/    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     textHolder := ValueHolder new.
     dialog := Dialog 
@@ -1397,7 +1397,7 @@
 
     |dialog textHolder|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+"/    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     textHolder := ValueHolder new.
     dialog := Dialog 
@@ -1446,7 +1446,7 @@
 
     |currentScreen|
 
-    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
+"/    UserPreferences current suppressDialogBoxForWarnings ifTrue:[^ self].
 
     ((currentScreen := Screen current) notNil and:[currentScreen nativeDialogs]) ifTrue:[
         ^ currentScreen