summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-25 22:45:43 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2021-03-25 22:45:43 (GMT)
commit336f34228cb6b288f45ccb32c482898749f4b967 (patch)
treea2e75735c3e6ca7a788dcc8dfbf10bf7335c2667 /tests
parent811f1574bb3980d57f05b8334bd6d1aecdf4e32e (diff)
downloadtk-336f34228cb6b288f45ccb32c482898749f4b967.zip
tk-336f34228cb6b288f45ccb32c482898749f4b967.tar.gz
tk-336f34228cb6b288f45ccb32c482898749f4b967.tar.bz2
Use "tkwait visibility" to stabilize the testcase
Diffstat (limited to 'tests')
-rw-r--r--tests/event.test5
1 files changed, 1 insertions, 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