From 336f34228cb6b288f45ccb32c482898749f4b967 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 25 Mar 2021 22:45:43 +0000
Subject: Use "tkwait visibility" to stabilize the testcase

---
 tests/event.test | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/tests/event.test b/tests/event.test
index 24d6caf..ea190de 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -874,10 +874,7 @@ test event-9 {no <Enter> event is generated for the container window when its
     pack propagate .top 0
     bind .top <Enter> {lappend res %W}
     pack [frame .top.f -bg green -width 50 -height 50] -anchor se -side bottom
-    # stabilize the test by giving some time to the OS before the upcoming update,
-    # so that -warp below finds the frame
-    after 50
-    update
+    tkwait visibility .top.f
     event generate .top.f <Motion> -warp 1 -x 25 -y 25  ; # <Enter> sent to .top and .top.f
     after 50  ; # Win specific - wait for SendInput to be executed
     update  ; # idletasks not enough
-- 
cgit v0.12