diff options
| -rw-r--r-- | library/menu.tcl | 2 |
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"} { |