diff options
| author | fvogelnew1@free.fr <fvogel> | 2015-07-28 20:31:10 (GMT) |
|---|---|---|
| committer | fvogelnew1@free.fr <fvogel> | 2015-07-28 20:31:10 (GMT) |
| commit | b58297e5be80d71c1946fffc378381aaa05772c6 (patch) | |
| tree | 18256f270cb0ad7edb8be081e055f07a38671349 /library | |
| parent | 2ca05cb010ec02b3aeee512b2e9236bfc36c9bb4 (diff) | |
| parent | 94276be0110db2ee4b82116baf4c181a322189c0 (diff) | |
| download | tk-b58297e5be80d71c1946fffc378381aaa05772c6.zip tk-b58297e5be80d71c1946fffc378381aaa05772c6.tar.gz tk-b58297e5be80d71c1946fffc378381aaa05772c6.tar.bz2 | |
Fixed bug [1236306fff] - TraverseToMenu error with alt binding to toplevel destroy
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 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"} { |