--- a/ApplicationModel.st	Thu Aug 08 12:56:33 2002 +0200
+++ b/ApplicationModel.st	Mon Aug 12 13:06:10 2002 +0200
@@ -1794,6 +1794,13 @@
     "Modified: 3.5.1996 / 13:39:15 / cg"
 !
 
+openAndWaitUntilVisible
+    "open a standard interface, and wait until my window is visible"
+
+    self open.
+    self window waitUntilVisible.
+!
+
 openAt:aPoint
     "open a standard interface at some point"
 
@@ -2613,6 +2620,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.170 2002-08-07 13:02:28 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.171 2002-08-12 11:06:10 cg Exp $'
 ! !
 ApplicationModel initialize!