summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-02-24 20:29:31 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-02-24 20:29:31 (GMT)
commit2dd0105b9da82fc1d2f88de7ab2b51c2ee928bcd (patch)
treefae07ad10a1df32082523b7a66788bc1ea0e1da2 /tests
parenta3ee774779349213a90779a5b69d5ac5d8357099 (diff)
downloadtk-2dd0105b9da82fc1d2f88de7ab2b51c2ee928bcd.zip
tk-2dd0105b9da82fc1d2f88de7ab2b51c2ee928bcd.tar.gz
tk-2dd0105b9da82fc1d2f88de7ab2b51c2ee928bcd.tar.bz2
Added test case wm-forget-2 related to test the fix for bug [e9112ef96e]bug_e9112ef96e
Diffstat (limited to 'tests')
-rw-r--r--tests/wm.test26
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/wm.test b/tests/wm.test
index 1aa0779..afcc2cd 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -2276,6 +2276,32 @@ test wm-forget-1.4 "pack into unmapped toplevel causes crash" -body {
deleteWindows
} -result {}
+test wm-forget-2 {bug [e9112ef96e] - [wm forget] doesn't completely} -setup {
+ catch {destroy .l .f.b .f}
+ set res {}
+} -body {
+ label .l -text "Top Dot"
+ frame .f
+ button .f.b -text Hello -command "puts Hello!"
+ pack .l -side top
+ pack .f.b
+ pack .f -side bottom
+ update
+ set res [winfo manager .f]
+ pack forget .f
+ update
+ lappend res [winfo manager .f]
+ wm manage .f
+ update
+ lappend res [winfo manager .f]
+ wm forget .f
+ update
+ lappend res [winfo manager .f]
+} -cleanup {
+ destroy .l .f.b .f
+ unset res
+} -result {pack {} wm {}}
+
# FIXME:
# Test delivery of virtual events to the WM. We could check to see if the