diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-03-13 09:31:28 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-03-13 09:31:28 (GMT) |
| commit | 288aa9fdecd7cd656cdb77ee0a61b4f88f3ec56c (patch) | |
| tree | 0d294dda5e0578a63776f236683f164d499f8799 /tests/bind.test | |
| parent | c8f6496c68cd57c556dc88036f656552ceabc6d7 (diff) | |
| parent | db4cdba82f0712063880e690953d4bd0caf6da4f (diff) | |
| download | tk-288aa9fdecd7cd656cdb77ee0a61b4f88f3ec56c.zip tk-288aa9fdecd7cd656cdb77ee0a61b4f88f3ec56c.tar.gz tk-288aa9fdecd7cd656cdb77ee0a61b4f88f3ec56c.tar.bz2 | |
Fix [2374c602bf]: bind-34.1 sometimes fails on Linux.
Diffstat (limited to 'tests/bind.test')
| -rw-r--r-- | tests/bind.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/bind.test b/tests/bind.test index 594fac8..c27412d 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6820,19 +6820,19 @@ test bind-33.21 {simulate use of the keyboard to trigger a pattern sequence with test bind-34.1 {-warp works relatively to a window} -setup { toplevel .top wm geometry .top +100+100 - update + after 10 ; update } -body { # In order to avoid platform-dependent coordinate results due to # decorations and borders, this test warps the pointer twice # relatively to a window that moved in the meantime, and checks # how much the pointer moved wm geometry .top +200+200 - update + after 10 ; update event generate .top <Motion> -x 20 -y 20 -warp 1 after 50 ; # Win specific - wait for SendInput to be executed set pointerPos1 [winfo pointerxy .top] wm geometry .top +600+600 - update + after 10 ; update event generate .top <Motion> -x 20 -y 20 -warp 1 after 50 ; # Win specific - wait for SendInput to be executed set pointerPos2 [winfo pointerxy .top] |