diff options
| -rw-r--r-- | tests/bind.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/bind.test b/tests/bind.test index fb36445..e6517e0 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6752,7 +6752,8 @@ test bind-35.1 {pointer warp with grab on master, bug [e3888d5820]} -constraints event generate .top.l <Motion> -warp 1 -x 10 -y 10 update idletasks ; after 50 foreach {x2 y2} [winfo pointerxy .top.l] {} - expr {$x1==$x2 && $y1==$y2} + expr {$x1==$x2 && $y1==$y2 && $x1==[winfo rootx .top.l]+10 \ + && $y1==[winfo rooty .top.l]+10} } -cleanup { destroy .top unset x1 y1 x2 y2 |