diff options
author | fvogel <fvogelnew1@free.fr> | 2024-03-07 20:07:09 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2024-03-07 20:07:09 (GMT) |
commit | e4b3ca39ccd2cb9a69d0cc2dea8dc01f863a4c9c (patch) | |
tree | 0508c3d70cc8154094fa2979f44705d9e83c484d /tests | |
parent | 4c672977fceafa18192e28a6df28b09bbcfc1677 (diff) | |
parent | bce717b7ed795488aa0ee68b92f8031e7cd49cb1 (diff) | |
download | tk-e4b3ca39ccd2cb9a69d0cc2dea8dc01f863a4c9c.zip tk-e4b3ca39ccd2cb9a69d0cc2dea8dc01f863a4c9c.tar.gz tk-e4b3ca39ccd2cb9a69d0cc2dea8dc01f863a4c9c.tar.bz2 |
Fix [47d4f29159]: Ignored binding scripts for events with detail field NotifyInferior. Patch from Erik Leunissen.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bind.test | 4 | ||||
-rw-r--r-- | tests/event.test | 33 |
2 files changed, 2 insertions, 35 deletions
diff --git a/tests/bind.test b/tests/bind.test index c3b3456..5421e62 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -574,7 +574,7 @@ test bind-13.9 {Tk_BindEvent procedure} -setup { } -cleanup { destroy .t.f } -result {{.t.f z (.t.f <Button-1> binding)} {.t.f z (.t.f <Button> binding)}} -test bind-13.10 {Tk_BindEvent procedure: ignore NotifyInferior} -setup { +test bind-13.10 {Tk_BindEvent procedure: don't ignore NotifyInferior - bug 47d4f29159} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f focus -force .t.f @@ -590,7 +590,7 @@ test bind-13.10 {Tk_BindEvent procedure: ignore NotifyInferior} -setup { return $x } -cleanup { destroy .t.f -} -result {Enter100 Leave102} +} -result {Enter100 Enter101 Leave102 Leave103} test bind-13.11 {Tk_BindEvent procedure: collapse Motions} -setup { frame .t.f -class Test -width 150 -height 100 pack .t.f diff --git a/tests/event.test b/tests/event.test index 1eb23c0..c56d4d8 100644 --- a/tests/event.test +++ b/tests/event.test @@ -815,39 +815,6 @@ test event-8 {event generate with keysyms corresponding to deleteWindows } -result {OK} -test event-9 {no <Enter> event is generated for the container window when its - managed window in which the mouse pointer was inside gets - destroyed - bug 9e1312f32c} -setup { - set res [list ] - set iconified false - if {[winfo ismapped .]} { - wm iconify . - update - set iconified true - } -} -body { - toplevel .top - pack propagate .top 0 - bind .top <Enter> {lappend res %W} - pack [frame .top.f -bg green -width 50 -height 50] -anchor se -side bottom - tkwait visibility .top.f - after 50 - update - focus -force .top.f - event generate .top.f <Motion> -warp 1 -x 25 -y 25 ; # <Enter> sent to .top and .top.f - controlPointerWarpTiming - update ; # idletasks not enough - destroy .top.f ; # no <Enter> event sent - update - set res -} -cleanup { - deleteWindows - if {$iconified} { - wm deiconify . - update - } -} -result {.top .top.f} - test event-9.1 {enter . window by destroying a toplevel - bug b1d115fa60} -setup { set EnterBind [bind . <Enter>] } -body { |