--- a/InfoBox.st	Tue Jan 11 16:19:27 2005 +0100
+++ b/InfoBox.st	Wed Jan 12 12:05:29 2005 +0100
@@ -373,6 +373,16 @@
 
 !InfoBox methodsFor:'queries'!
 
+beepWhenOpening
+    ^ UserPreferences current beepForInfoDialog
+
+    "
+     Dialog information:'hello'
+     Dialog warn:'hello'
+     Dialog error:'hello'
+    "
+!
+
 preferredExtent 
     "return my preferred extent"
 
@@ -410,5 +420,5 @@
 !InfoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.43 2004-05-11 16:35:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.44 2005-01-12 11:05:22 cg Exp $'
 ! !

--- a/WarningBox.st	Tue Jan 11 16:19:27 2005 +0100
+++ b/WarningBox.st	Wed Jan 12 12:05:29 2005 +0100
@@ -245,23 +245,14 @@
     label := 'Warning'
 ! !
 
-!WarningBox methodsFor:'realization'!
-
-openModal
-    "added bell to wake up user"
+!WarningBox methodsFor:'queries'!
 
-    self beep.
-    super openModal
-
-    "
-     self warn:'hello'
-    "
-
-    "Modified: 28.5.1996 / 16:59:01 / cg"
+beepWhenOpening
+    ^ UserPreferences current beepForWarningDialog
 ! !
 
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.33 2003-08-18 17:23:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.34 2005-01-12 11:05:15 cg Exp $'
 ! !

--- a/YesNoBox.st	Tue Jan 11 16:19:27 2005 +0100
+++ b/YesNoBox.st	Wed Jan 12 12:05:29 2005 +0100
@@ -235,6 +235,10 @@
 
 !YesNoBox methodsFor:'queries'!
 
+beepWhenOpening
+    ^ false
+!
+
 preferredExtent 
     "compute the boxes preferredExtent from the components' sizes"
 
@@ -320,5 +324,5 @@
 !YesNoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.54 2003-09-10 15:13:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.55 2005-01-12 11:05:29 cg Exp $'
 ! !