summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-07-28 20:30:08 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-07-28 20:30:08 (GMT)
commitf286e06ad2da094e8154ec23f9b379d5cadd4f2d (patch)
treee3f42870bd172a06b21ad4e72245249316b8e6fb
parent9e9425e69824f6b7441eada0cfa96198bd0a1926 (diff)
downloadtk-f286e06ad2da094e8154ec23f9b379d5cadd4f2d.zip
tk-f286e06ad2da094e8154ec23f9b379d5cadd4f2d.tar.gz
tk-f286e06ad2da094e8154ec23f9b379d5cadd4f2d.tar.bz2
Fixed bug [1236306fff] - TraverseToMenu error with alt binding to toplevel destroy
-rw-r--r--library/menu.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/menu.tcl b/library/menu.tcl
index fd814b3..4875477 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -1037,7 +1037,7 @@ proc ::tk::MenuFind {w char} {
proc ::tk::TraverseToMenu {w char} {
variable ::tk::Priv
- if {$char eq ""} {
+ if {![winfo exists $w] || $char eq ""} {
return
}
while {[winfo class $w] eq "Menu"} {