--- a/ModalBox.st	Wed Jan 12 12:05:06 2005 +0100
+++ b/ModalBox.st	Wed Jan 12 12:06:15 2005 +0100
@@ -513,10 +513,6 @@
 
 !ModalBox methodsFor:'queries'!
 
-beepWhenOpening
-    ^ false
-!
-
 preferredExtent
     "return the extent required to make all components
      visible in myself. This should be redefined in
@@ -556,27 +552,6 @@
     "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
@@ -938,7 +913,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.90 2005-01-12 11:05:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.91 2005-01-12 11:06:12 cg Exp $'
 ! !
 
 ModalBox initialize!