summaryrefslogtreecommitdiffstats
path: root/library/menu.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-07-28 20:31:10 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-07-28 20:31:10 (GMT)
commitb9956dbf40df0456a972263dd768f2b890ce3eb5 (patch)
tree18256f270cb0ad7edb8be081e055f07a38671349 /library/menu.tcl
parent669cc3928e2e48f9ebb7accede7444184fa9d3bf (diff)
parentf286e06ad2da094e8154ec23f9b379d5cadd4f2d (diff)
downloadtk-b9956dbf40df0456a972263dd768f2b890ce3eb5.zip
tk-b9956dbf40df0456a972263dd768f2b890ce3eb5.tar.gz
tk-b9956dbf40df0456a972263dd768f2b890ce3eb5.tar.bz2
Fixed bug [1236306fff] - TraverseToMenu error with alt binding to toplevel destroy
Diffstat (limited to 'library/menu.tcl')
-rw-r--r--library/menu.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/library/menu.tcl b/library/menu.tcl
index cd05207..5a5d9de 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -1036,7 +1036,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"} {