summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-05-25 21:19:33 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-05-25 21:19:33 (GMT)
commit936bae60225b39532ed5a37afd633737ac95613b (patch)
tree0c6937cedd3a4207162fa7ac64b7a0094bc63d87
parent6ceb9aa8c5ae688f8f59178fb7b1139ce657b1ae (diff)
downloadtk-936bae60225b39532ed5a37afd633737ac95613b.zip
tk-936bae60225b39532ed5a37afd633737ac95613b.tar.gz
tk-936bae60225b39532ed5a37afd633737ac95613b.tar.bz2
Fixed [f2655bb0ec] - bind-15.23 fails if the mouse is inside the test windowbug_f2655bb0ec
-rw-r--r--tests/bind.test8
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test
index 474771d..ab3fa15 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -34,6 +34,14 @@ proc unsetBindings {} {
bind .t <Enter> {}
}
+# move the mouse pointer away of the testing area
+# otherwise some spurious events may pollute the tests
+toplevel .top
+wm geometry .top 50x50-50-50
+update
+event generate .top <Button-1> -warp 1
+update
+destroy .top
test bind-1.1 {bind command} -body {
bind