Fix [47d4f29159]: Ignored binding scripts for events with detail field NotifyInferior. Patch from Erik Leunissen.

2 files changed, 2 insertions, 35 deletions

diff --git a/tests/bind.test b/tests/bind.test
index 17b1fec..2d0cf97 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 18af2e1..015720e 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -861,39 +861,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 {