diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-05-26 20:46:06 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-05-26 20:46:06 (GMT) |
| commit | 6a833c0141d490d970f3419e6d2ef5e62e3e9269 (patch) | |
| tree | 2fab67c4ed0e4acafdb7b17c3f7472bd431532c9 /tests/bind.test | |
| parent | 402f10f351b178121bd2e4787a8322315df95bd2 (diff) | |
| download | tk-6a833c0141d490d970f3419e6d2ef5e62e3e9269.zip tk-6a833c0141d490d970f3419e6d2ef5e62e3e9269.tar.gz tk-6a833c0141d490d970f3419e6d2ef5e62e3e9269.tar.bz2 | |
More complete fix for [79549a9134] - Mouse pointer warping crashes, with a non-regression test case.
Diffstat (limited to 'tests/bind.test')
| -rw-r--r-- | tests/bind.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index 474771d..387b119 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6093,6 +6093,18 @@ test bind-31.7 {virtual event user_data field - unshared, asynch} -setup { destroy .t.f } -result {{} {} {TestUserData >b<}} +test bind-32 {-warp, window was destroyed before the idle callback DoWarp} -setup { + frame .t.f + pack .t.f + focus -force .t.f + update +} -body { + event generate .t.f <Button-1> -warp 1 + destroy .t.f + update ; # shall simply not crash +} -cleanup { +} -result {} + # cleanup cleanupTests |