diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-11-28 18:21:05 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-11-28 18:21:05 (GMT) |
| commit | 7479a1750b40aee866df49147c2d62214d099c98 (patch) | |
| tree | 1f9eb669376d29e170958377898ceec68153140b /tests/event.test | |
| parent | dd11806f2acec158141e109dd8ecf15165f5dd80 (diff) | |
| download | tk-7479a1750b40aee866df49147c2d62214d099c98.zip tk-7479a1750b40aee866df49147c2d62214d099c98.tar.gz tk-7479a1750b40aee866df49147c2d62214d099c98.tar.bz2 | |
Add test event-9 checking non-regression against [9e1312f32c].
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/event.test b/tests/event.test index ebe0da8..e1573d5 100644 --- a/tests/event.test +++ b/tests/event.test @@ -859,6 +859,25 @@ test event-8 {event generate with keysyms corresponding to deleteWindows } -result {OK} +test event-9 {no <Enter> event is generated for the parent window when a + child window in which the mouse pointer was inside gets + destroyed - bug 9e1312f32c} -setup { + set res [list ] +} -body { + toplevel .top + pack propagate .top 0 + bind all <Enter> {lappend res %W} + pack [frame .top.f -bg green -width 50 -height 50] -anchor se -side bottom + update + event generate .top.f <Motion> -warp 1 -x 25 -y 25 ; # <Enter> sent to .top and .top.f + update ; # idletasks not enough + destroy .top.f ; # no <Enter> event sent + update + set res +} -cleanup { + deleteWindows +} -result {.top .top.f} + # cleanup update unset -nocomplain keypress_lookup |