diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-14 08:57:03 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-14 08:57:03 (GMT) |
| commit | 939adaec382ce7257869e18efa3ab353edda0ed5 (patch) | |
| tree | 50b33044dd56b63633e734e9bf0725cdd7ba7e4c /library | |
| parent | dfde3458e7bc27e3eef496b2b65d38a93092b9aa (diff) | |
| parent | 4b62f1fb163792e9cc42e12ee5e803ae187cb609 (diff) | |
| download | tk-939adaec382ce7257869e18efa3ab353edda0ed5.zip tk-939adaec382ce7257869e18efa3ab353edda0ed5.tar.gz tk-939adaec382ce7257869e18efa3ab353edda0ed5.tar.bz2 | |
merge core-8-5-branch
Diffstat (limited to 'library')
| -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 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"} { |