diff options
author | fvogel <fvogelnew1@free.fr> | 2020-06-07 19:58:45 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2020-06-07 19:58:45 (GMT) |
commit | 8dce88c3bfe67441ecf8b23a5f8ef9946485aa88 (patch) | |
tree | a8d5cac88181be0f4c59a356b938fb97a9335411 | |
parent | 65275b4068ba0e838ab38828a58122526789d270 (diff) | |
download | tk-8dce88c3bfe67441ecf8b23a5f8ef9946485aa88.zip tk-8dce88c3bfe67441ecf8b23a5f8ef9946485aa88.tar.gz tk-8dce88c3bfe67441ecf8b23a5f8ef9946485aa88.tar.bz2 |
Add comment explaining the result expected for bind-35.1
-rw-r--r-- | tests/bind.test | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test index e6517e0..e333c6c 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6752,6 +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] {} + # success if the coords are the same with or without the grab, and if they + # are at (10,10) inside the label widget as requested by the warping expr {$x1==$x2 && $y1==$y2 && $x1==[winfo rootx .top.l]+10 \ && $y1==[winfo rooty .top.l]+10} } -cleanup { |