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