diff options
| author | fvogel <fvogelnew1@free.fr> | 2018-03-25 18:58:11 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2018-03-25 18:58:11 (GMT) |
| commit | e2867ee6f0fabe560df76c37acb71631391387a6 (patch) | |
| tree | 5c3d64b929f325c536bcd5f0a233ee20bbc365d5 /library | |
| parent | 67ede2610fad14fa22a131222c837134fe72c9f8 (diff) | |
| download | tk-e2867ee6f0fabe560df76c37acb71631391387a6.zip tk-e2867ee6f0fabe560df76c37acb71631391387a6.tar.gz tk-e2867ee6f0fabe560df76c37acb71631391387a6.tar.bz2 | |
Fix [59fccbfa27]: Clicking on empty menubar area stops menus working. Thanks to cjmcdonald.
Diffstat (limited to 'library')
| -rw-r--r-- | library/menu.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/library/menu.tcl b/library/menu.tcl index e1c94c9..ba66b92 100644 --- a/library/menu.tcl +++ b/library/menu.tcl @@ -609,7 +609,9 @@ proc ::tk::MenuButtonDown menu { return } if {[$menu index active] eq "none"} { - set Priv(window) {} + if {[$menu cget -type] ne "menubar" } { + set Priv(window) {} + } return } $menu postcascade active |