diff options
| -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 { |