summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-05-30 18:14:38 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-05-30 18:14:38 (GMT)
commit88516c26fd029f03f6ace99463da1ece2844399f (patch)
tree633e08858719b6108b539d82dc399497aacae431
parente94d8fbd79076b042870c15ffbbb8d2ce446ba07 (diff)
parent936bae60225b39532ed5a37afd633737ac95613b (diff)
downloadtk-88516c26fd029f03f6ace99463da1ece2844399f.zip
tk-88516c26fd029f03f6ace99463da1ece2844399f.tar.gz
tk-88516c26fd029f03f6ace99463da1ece2844399f.tar.bz2
Fixed [f2655bb0ec] - bind-15.23 fails if the mouse is inside the test window
-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