summaryrefslogtreecommitdiffstats
path: root/tests/textWind.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-09-29 19:30:02 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-09-29 19:30:02 (GMT)
commit9c35ad5d2bea5b5ae634bc96bedc74867dc4c9cc (patch)
tree910ef88c566c1299a1f551bb25800423467b6352 /tests/textWind.test
parente2138596ed17444e34d4aacc028486e200cad81f (diff)
parent8fd84f53e70e83dd996314447bb0da5ec8cd5468 (diff)
downloadtk-9c35ad5d2bea5b5ae634bc96bedc74867dc4c9cc.zip
tk-9c35ad5d2bea5b5ae634bc96bedc74867dc4c9cc.tar.gz
tk-9c35ad5d2bea5b5ae634bc96bedc74867dc4c9cc.tar.bz2
Fixed bug [1501749fff] - Crash on embedded window deletion bound to <Map> event
Diffstat (limited to 'tests/textWind.test')
-rw-r--r--tests/textWind.test17
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/textWind.test b/tests/textWind.test
index c3483e6..27b7309 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -1458,6 +1458,23 @@ test textWind-17.10 {peer widget window configuration} -setup {
destroy .tt .t
} -result {{-window {} {} {} {}} {-window {} {} {} {}} {-window {} {} {} .t.f} {-window {} {} {} .tt.t.f}}
+test textWind-18.1 {embedded window deletion triggered by a script bound to <Map>} -setup {
+ catch {destroy .t .f .f2}
+} -body {
+ pack [text .t]
+ for {set i 1} {$i < 100} {incr i} {.t insert end "Line $i\n"}
+ .t window create end -window [frame .f -background red -width 80 -height 80]
+ .t window create end -window [frame .f2 -background blue -width 80 -height 80]
+ bind .f <Map> {.t delete .f}
+ update
+ # this shall not crash (bug 1501749)
+ after 100 {.t yview end}
+ tkwait visibility .f2
+ update
+} -cleanup {
+ destroy .t .f .f2
+} -result {}
+
option clear
# cleanup