diff options
author | fvogel <fvogelnew1@free.fr> | 2021-03-09 20:05:54 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2021-03-09 20:05:54 (GMT) |
commit | 92af8d03e7357cd88d0964a41933025a6b3d4c51 (patch) | |
tree | 78a4e96df6dca957af68a91c31d9f48c85a209bc /tests | |
parent | 0210342821cdeb25a2e7caba21d30ffedd8c6a4e (diff) | |
download | tk-92af8d03e7357cd88d0964a41933025a6b3d4c51.zip tk-92af8d03e7357cd88d0964a41933025a6b3d4c51.tar.gz tk-92af8d03e7357cd88d0964a41933025a6b3d4c51.tar.bz2 |
If this still allows event-9 and/or textTag-16.2 to fail, then it cannot be a timing issue.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/event.test | 6 | ||||
-rw-r--r-- | tests/textTag.test | 4 |
2 files changed, 7 insertions, 3 deletions
diff --git a/tests/event.test b/tests/event.test index 5db33c5..d5a9c37 100644 --- a/tests/event.test +++ b/tests/event.test @@ -876,8 +876,10 @@ test event-9 {no <Enter> event is generated for the container window when its pack [frame .top.f -bg green -width 50 -height 50] -anchor se -side bottom update event generate .top.f <Motion> -warp 1 -x 25 -y 25 ; # <Enter> sent to .top and .top.f - update idletasks ; after 500 ; # Win specific - wait for SendInput to be executed - update ; after 500 ; update + update idletasks ; after 50 ; # Win specific - wait for SendInput to be executed + for {set i 0} {$i < 100} {incr i} { + update ; after 50 ; update idletasks ; after 50 + } destroy .top.f ; # no <Enter> event sent update set res diff --git a/tests/textTag.test b/tests/textTag.test index 32c317b..f0a62f9 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -1613,7 +1613,9 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints { event gen .t <Motion> -x $x2 -y $y2 set x [.t index current] .t tag add big 3.0 - after 50 ; update ; after 50 ; update + for {set i 0} {$i < 100} {incr i} { + update ; after 50 ; update idletasks ; after 50 + } lappend x [.t index current] } -cleanup { .t tag delete big |