diff options
| author | fvogelnew1@free.fr <fvogel> | 2016-05-25 21:19:33 (GMT) |
|---|---|---|
| committer | fvogelnew1@free.fr <fvogel> | 2016-05-25 21:19:33 (GMT) |
| commit | c0d3b3f1a0045caa2a213d28d8b3238cfa2582b1 (patch) | |
| tree | 0c6937cedd3a4207162fa7ac64b7a0094bc63d87 /tests | |
| parent | 0407532cefb88185b9c56c948199724ff5416968 (diff) | |
| download | tk-c0d3b3f1a0045caa2a213d28d8b3238cfa2582b1.zip tk-c0d3b3f1a0045caa2a213d28d8b3238cfa2582b1.tar.gz tk-c0d3b3f1a0045caa2a213d28d8b3238cfa2582b1.tar.bz2 | |
Fixed [f2655bb0ec] - bind-15.23 fails if the mouse is inside the test window
Diffstat (limited to 'tests')
| -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 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 |