--- a/TopView.st	Thu Oct 14 17:00:05 2004 +0200
+++ b/TopView.st	Thu Oct 14 17:35:43 2004 +0200
@@ -91,6 +91,7 @@
         v beDialogView.
         v extent:200@200.
         v open
+        Delay waitForSeconds:10. v destroy.
                                                             [exEnd]
 
     popUp (always on top):
@@ -100,7 +101,8 @@
         v := TopView new.
         v bePopUpView.
         v extent:200@200.
-        v open
+        v open.
+        Delay waitForSeconds:10. v destroy.
                                                             [exEnd]
 
     undecorated (looks loke popUp, but is not always on top):
@@ -110,7 +112,8 @@
         v := TopView new.
         v beUndecorated.
         v extent:200@200.
-        v open
+        v open.
+        Delay waitForSeconds:10. v destroy.
                                                             [exEnd]
 
     toolwindow (looks loke normal, but has smaller windowTitle-area on win32):
@@ -120,7 +123,8 @@
         v := TopView new.
         v beToolWindow.
         v extent:200@200.
-        v open
+        v open.
+        Delay waitForSeconds:10. v destroy.
                                                             [exEnd]
 
     toolwindow dialog (looks loke normal, but has smaller windowTitle-area on win32):
@@ -130,7 +134,8 @@
         v := TopView new.
         v beToolDialog.
         v extent:200@200.
-        v open
+        v open.
+        Delay waitForSeconds:10. v destroy.
                                                             [exEnd]
 
   Modal:
@@ -1120,7 +1125,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.94 2004-09-15 16:08:35 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.95 2004-10-14 15:35:43 cg Exp $'
 ! !
 
 TopView initialize!