--- 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 $'
 ! !