diff options
| author | fvogel <fvogel@noemail.net> | 2016-05-30 18:14:55 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2016-05-30 18:14:55 (GMT) |
| commit | 90bc5cb8ab0c35cef258452c6bf8027238c8753a (patch) | |
| tree | 7d26f7ec45076e6dbb5a0c5b834e984fd35d3d4e | |
| parent | dd90ecb08f1ae0b17da9293287707fe00828bf6b (diff) | |
| parent | 54955b31a35aa13561c903327f6f93dec3e5df21 (diff) | |
| download | tk-90bc5cb8ab0c35cef258452c6bf8027238c8753a.zip tk-90bc5cb8ab0c35cef258452c6bf8027238c8753a.tar.gz tk-90bc5cb8ab0c35cef258452c6bf8027238c8753a.tar.bz2 | |
Fixed [f2655bb0ec] - bind-15.23 fails if the mouse is inside the test window
FossilOrigin-Name: 0f2de9a37d0da67f36a5f4b076bfe02fd7fb026a
| -rw-r--r-- | tests/bind.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index 0514499..0a4d114 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 |