diff options
| author | fvogel <fvogel@noemail.net> | 2016-03-07 21:06:44 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2016-03-07 21:06:44 (GMT) |
| commit | 9f1f6013e2575cd6fa211c3333b4d3f754723fb4 (patch) | |
| tree | b3bc409dcb13f474ac3c0df122ca79b07f5f394f | |
| parent | a3dadceab0820f1d0c416fa22eb9a2cc638a430b (diff) | |
| parent | cdffdaf7d6df7617169ff95daf74c205f6c29534 (diff) | |
| download | tk-9f1f6013e2575cd6fa211c3333b4d3f754723fb4.zip tk-9f1f6013e2575cd6fa211c3333b4d3f754723fb4.tar.gz tk-9f1f6013e2575cd6fa211c3333b4d3f754723fb4.tar.bz2 | |
Added test case wm-forget-2 related to test the fix for bug [e9112ef96e]
FossilOrigin-Name: a6c6d3bd08538a32eb65a5285faf1920c07ca140
| -rw-r--r-- | tests/wm.test | 26 |
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 |