diff options
| author | fvogel <fvogel@noemail.net> | 2015-07-28 20:30:08 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2015-07-28 20:30:08 (GMT) |
| commit | a1f25ea2aff6bfd3b491f1119c10d528a6bf1d49 (patch) | |
| tree | e3f42870bd172a06b21ad4e72245249316b8e6fb /library | |
| parent | 78ab5f66913ea377d3921369ac4e52fa204d522c (diff) | |
| download | tk-a1f25ea2aff6bfd3b491f1119c10d528a6bf1d49.zip tk-a1f25ea2aff6bfd3b491f1119c10d528a6bf1d49.tar.gz tk-a1f25ea2aff6bfd3b491f1119c10d528a6bf1d49.tar.bz2 | |
Fixed bug [1236306fff - TraverseToMenu error with alt binding to toplevel destroy
FossilOrigin-Name: 7706569715b54bceb82a5c4800a6606d7f23659b
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"} { |