diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-06-07 19:55:26 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-06-07 19:55:26 (GMT) |
| commit | 65275b4068ba0e838ab38828a58122526789d270 (patch) | |
| tree | 6ca4112643d416a094e65625b2478c84e2c20b19 /tests | |
| parent | fc3ac7bddfaab3aa339544ced10afdf77c0477c4 (diff) | |
| download | tk-65275b4068ba0e838ab38828a58122526789d270.zip tk-65275b4068ba0e838ab38828a58122526789d270.tar.gz tk-65275b4068ba0e838ab38828a58122526789d270.tar.bz2 | |
Be even more specific in the result expected from bind-35.1
Diffstat (limited to 'tests')
| -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 |