summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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"} {