#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Sat, 27 Jul 2019 11:50:58 +0200
changeset 4321 871310bbbb2e
parent 4320 1019a6f5ce79
child 4322 83bda4f64c02
#FEATURE by exept class: ApplicationModel added: #waitUntilVisible
ApplicationModel.st
--- a/ApplicationModel.st	Sat Jul 27 11:50:02 2019 +0200
+++ b/ApplicationModel.st	Sat Jul 27 11:50:58 2019 +0200
@@ -3825,6 +3825,12 @@
 
 unhideWindows
     self windowGroup unhideTopViews
+!
+
+waitUntilVisible
+    "wait until my window is visible"
+
+    self window waitUntilVisible.
 ! !
 
 !ApplicationModel methodsFor:'opening-dialogs'!