diff options
| author | sbron <sbron@tclcode.com> | 2023-09-04 10:20:47 (GMT) |
|---|---|---|
| committer | sbron <sbron@tclcode.com> | 2023-09-04 10:20:47 (GMT) |
| commit | afd5488101f50499dbf21005fa40dbaf4d673f73 (patch) | |
| tree | 9a67101fcd01265fc15bbde682ac84a8c071e2b1 /tests | |
| parent | 58d3fc25b8c6460bb4e314fc9716431ff90b8a94 (diff) | |
| parent | a9462458f887b52dadf4c5a2506a17cb7cf55036 (diff) | |
| download | tk-afd5488101f50499dbf21005fa40dbaf4d673f73.zip tk-afd5488101f50499dbf21005fa40dbaf4d673f73.tar.gz tk-afd5488101f50499dbf21005fa40dbaf4d673f73.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/menu.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/menu.test b/tests/menu.test index 1c45e11..078604a 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -2245,6 +2245,14 @@ test menu-6.16 {TkDestroyMenu} -setup { .t3 configure -menu .m1 list [destroy .m1] [destroy .t2] [destroy .t3] [. configure -menu ""] } -result {{} {} {} {}} +test menu-6.17 {TkDestroyMenu - bug 14a9b62e1d} -setup { + deleteWindows +} -body { + menu .m1 + .m1 add command -command {destroy .m1} + .m1 invoke end + winfo exists .m1 +} -result {0} test menu-7.1 {UnhookCascadeEntry} -setup { deleteWindows |