diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-30 14:46:48 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-30 14:46:48 (GMT) |
commit | 009394840a93391fb574b4cbc7a9eb114ee3da7b (patch) | |
tree | e54a25a1760e53ba8d6d8b8049addba8621c8b41 /tests/textWind.test | |
parent | ee2ce93b2a9f94bf0fb220792ca75b6bdce7478c (diff) | |
parent | a7bd1b8b54051af0e4a59ca36d6fa8cbbd221487 (diff) | |
download | tk-009394840a93391fb574b4cbc7a9eb114ee3da7b.zip tk-009394840a93391fb574b4cbc7a9eb114ee3da7b.tar.gz tk-009394840a93391fb574b4cbc7a9eb114ee3da7b.tar.bz2 |
merge core-8-5-branch. tip_437
This is the TIP #437 implementation being voted on.
Diffstat (limited to 'tests/textWind.test')
-rw-r--r-- | tests/textWind.test | 14 |
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 |