diff options
| -rw-r--r-- | tests/event.test | 6 | ||||
| -rw-r--r-- | tests/textTag.test | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/tests/event.test b/tests/event.test index bf618ac..24d6caf 100644 --- a/tests/event.test +++ b/tests/event.test @@ -874,9 +874,13 @@ 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 event generate .top.f <Motion> -warp 1 -x 25 -y 25 ; # <Enter> sent to .top and .top.f - update idletasks ; after 50 ; update + after 50 ; # Win specific - wait for SendInput to be executed + update ; # idletasks not enough destroy .top.f ; # no <Enter> event sent update set res diff --git a/tests/textTag.test b/tests/textTag.test index 825f3b0..e36cf30 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -1609,6 +1609,8 @@ test textTag-16.2 {TkTextPickCurrent procedure} -constraints { event generate {} <Motion> -warp 1 -x 5 -y 5 ; update idletasks ; after 50 } -body { .t tag configure big -font $bigFont + # update needed here to stabilize the test + update event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1 event gen .t <Motion> -x $x2 -y $y2 set x [.t index current] |