diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-01-27 21:09:35 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-01-27 21:09:35 (GMT) |
| commit | f782ee2185ebf9d8e37f80913de0c56385178f82 (patch) | |
| tree | 23d1a9dd4aa0332613992c09248cd29320d158bd /tests/bind.test | |
| parent | 10304fd48d8ea057e53ed46c983c4147efd1066b (diff) | |
| download | tk-f782ee2185ebf9d8e37f80913de0c56385178f82.zip tk-f782ee2185ebf9d8e37f80913de0c56385178f82.tar.gz tk-f782ee2185ebf9d8e37f80913de0c56385178f82.tar.bz2 | |
Avoid interference in bind-35.1 from the hot spots in the corners of the screen featured by some WM on Linux.
Diffstat (limited to 'tests/bind.test')
| -rw-r--r-- | tests/bind.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/bind.test b/tests/bind.test index 7d5cea5..d17ff37 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6690,7 +6690,7 @@ test bind-34.3 {-warp works with null or negative coordinates} -setup { } -result {0 0 ok ok} test bind-35.1 {pointer warp with grab on master, bug [e3888d5820]} -setup { - event generate {} <Motion> -warp 1 -x 1 -y 1 + event generate {} <Motion> -warp 1 -x 50 -y 50 update idletasks ; # DoWarp is an idle callback after 50 ; # Win specific - wait for SendInput to be executed toplevel .top @@ -6708,7 +6708,7 @@ test bind-35.1 {pointer warp with grab on master, bug [e3888d5820]} -setup { event generate .top.l <Motion> -warp 1 -x 10 -y 10 update idletasks ; after 50 foreach {x1 y1} [winfo pointerxy .top.l] {} - event generate {} <Motion> -warp 1 -x 1 -y 1 + event generate {} <Motion> -warp 1 -x 50 -y 50 update idletasks ; after 50 grab release .top ; # this will queue events after 50 |