summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2020-06-07 19:55:26 (GMT)
committerfvogel <fvogelnew1@free.fr>2020-06-07 19:55:26 (GMT)
commit65275b4068ba0e838ab38828a58122526789d270 (patch)
tree6ca4112643d416a094e65625b2478c84e2c20b19 /tests
parentfc3ac7bddfaab3aa339544ced10afdf77c0477c4 (diff)
downloadtk-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.test3
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