summaryrefslogtreecommitdiffstats
path: root/tests/textWind.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-09-29 19:10:48 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-09-29 19:10:48 (GMT)
commit8fd84f53e70e83dd996314447bb0da5ec8cd5468 (patch)
tree30ada10cf1280aa22574e64a76d434a77cf3609c /tests/textWind.test
parent4b62f1fb163792e9cc42e12ee5e803ae187cb609 (diff)
parent625ff44b4cbd4e2d133d798057e9c68c33f73aaf (diff)
downloadtk-8fd84f53e70e83dd996314447bb0da5ec8cd5468.zip
tk-8fd84f53e70e83dd996314447bb0da5ec8cd5468.tar.gz
tk-8fd84f53e70e83dd996314447bb0da5ec8cd5468.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.test14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/textWind.test b/tests/textWind.test
index 79dca50..2e16f7b 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -1023,6 +1023,20 @@ test textWind-17.9 {peer widget window configuration} {
set res
} {{-window {} {} {} {}} {-window {} {} {} {}} {-window {} {} {} .t.f} {-window {} {} {} .tt.t.f}}
+test textWind-18.1 {embedded window deletion triggered by a script bound to <Map>} {
+ catch {destroy .t .f}
+ 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
+} {}
+
catch {destroy .t}
option clear