diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-03-04 20:39:28 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-03-04 20:39:28 (GMT) |
| commit | 8a59ed048ad3c768155313815729cf11be0f2007 (patch) | |
| tree | 46d8acbf3ac804759dc58c5d874b49cc83cf4d68 /tests | |
| parent | 088f49b796a13ff9e4da248780bf3dd9fbe857f9 (diff) | |
| download | tk-8a59ed048ad3c768155313815729cf11be0f2007.zip tk-8a59ed048ad3c768155313815729cf11be0f2007.tar.gz tk-8a59ed048ad3c768155313815729cf11be0f2007.tar.bz2 | |
Experiment
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/event.test | 3 | ||||
| -rw-r--r-- | tests/textTag.test | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/tests/event.test b/tests/event.test index bf618ac..4426425 100644 --- a/tests/event.test +++ b/tests/event.test @@ -876,7 +876,8 @@ 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 50 ; update + update idletasks ; after 50 ; # Win specific - wait for SendInput to be executed + update ; after 50 ; update destroy .top.f ; # no <Enter> event sent update set res diff --git a/tests/textTag.test b/tests/textTag.test index 825f3b0..ad2a830 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -1613,7 +1613,7 @@ 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 - update + update ; after 50 ; update lappend x [.t index current] } -cleanup { .t tag delete big |