summaryrefslogtreecommitdiffstats
path: root/tests/bind.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-05-30 20:16:28 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-05-30 20:16:28 (GMT)
commit56c80a96b5756e61c7e0c63bf00975a2e1a871ff (patch)
tree9ded4a23ef169a9a4597b60f8aea9acb87cf60db /tests/bind.test
parent6a7e36de7461df48f11e6ef672f6231f2e931e79 (diff)
downloadtk-56c80a96b5756e61c7e0c63bf00975a2e1a871ff.zip
tk-56c80a96b5756e61c7e0c63bf00975a2e1a871ff.tar.gz
tk-56c80a96b5756e61c7e0c63bf00975a2e1a871ff.tar.bz2
A mouse button once pressed should be released. Doing otherwise messes up with assumptions in other (later) tests from the test suite, which reasonably think they start with all mouse buttons depressed. In the present case, canvas-13.1 failed because event generation of <ButtonRelease-1> was missing in test bind-32
Diffstat (limited to 'tests/bind.test')
-rw-r--r--tests/bind.test1
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test
index 387b119..c26cfcd 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -6100,6 +6100,7 @@ test bind-32 {-warp, window was destroyed before the idle callback DoWarp} -setu
update
} -body {
event generate .t.f <Button-1> -warp 1
+ event generate .t.f <ButtonRelease-1>
destroy .t.f
update ; # shall simply not crash
} -cleanup {