--- a/ModalBox.st	Wed Jan 12 11:28:00 2005 +0100
+++ b/ModalBox.st	Wed Jan 12 12:05:06 2005 +0100
@@ -513,6 +513,10 @@
 
 !ModalBox methodsFor:'queries'!
 
+beepWhenOpening
+    ^ false
+!
+
 preferredExtent
     "return the extent required to make all components
      visible in myself. This should be redefined in
@@ -552,6 +556,27 @@
     "Modified: 24.7.1997 / 15:22:39 / cg"
 ! !
 
+!ModalBox methodsFor:'realization'!
+
+openModal
+    "added bell to wake up user"
+
+    (self beepWhenOpening) ifTrue:[
+        self beep.
+    ].
+    super openModal
+
+    "
+     self warn:'hello'
+     self information:'hello'
+     ModalBox new openModal
+     WarningBox new openModal
+     InfoBox new openModal
+    "
+
+    "Modified: 28.5.1996 / 16:59:01 / cg"
+! !
+
 !ModalBox methodsFor:'show & hide'!
 
 autoHideAfter:seconds with:anAction
@@ -913,7 +938,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.89 2004-09-20 08:52:39 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.90 2005-01-12 11:05:06 cg Exp $'
 ! !
 
 ModalBox initialize!