--- a/TopView.st	Wed Jan 12 12:05:06 2005 +0100
+++ b/TopView.st	Wed Jan 12 12:06:15 2005 +0100
@@ -691,6 +691,10 @@
 
 !TopView methodsFor:'queries'!
 
+beepWhenOpening
+    ^ false
+!
+
 heightIncludingBorder
     "return the views overall-height"
 
@@ -849,6 +853,27 @@
     ^ super windowStyle
 ! !
 
+!TopView 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"
+! !
+
 !TopView methodsFor:'show & hide'!
 
 fixPosition:aPoint
@@ -1125,7 +1150,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.95 2004-10-14 15:35:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.96 2005-01-12 11:06:15 cg Exp $'
 ! !
 
 TopView initialize!