diff options
author | fvogel <fvogelnew1@free.fr> | 2016-05-30 18:36:48 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-05-30 18:36:48 (GMT) |
commit | 04fec7a1258813e4b388f6ed6e6111f1374065cb (patch) | |
tree | c03f283d8eb1c4cf5ca30ce5f4859c92849c691b /tests | |
parent | f7271371b3ef0ae8c36fa3cfff4dd0409d2437dc (diff) | |
parent | f363246b699fde869681e5213bc1e6e100e81529 (diff) | |
download | tk-04fec7a1258813e4b388f6ed6e6111f1374065cb.zip tk-04fec7a1258813e4b388f6ed6e6111f1374065cb.tar.gz tk-04fec7a1258813e4b388f6ed6e6111f1374065cb.tar.bz2 |
Fixed [79549a9134] - Mouse pointer warping crashes
Diffstat (limited to 'tests')
-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 0a4d114..9f0caa7 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6157,6 +6157,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 |