summaryrefslogtreecommitdiffstats
path: root/library/menu.tcl
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-08-19 20:31:26 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-08-19 20:31:26 (GMT)
commit24e47b1d059cf68f776b57faf187e4e022ad2a13 (patch)
tree0ed4f7cc3249746ab389f2fdff2e52176f3dc688 /library/menu.tcl
parent609dfcd8635e481e324af2a0cc0228caf3b7c046 (diff)
downloadtk-24e47b1d059cf68f776b57faf187e4e022ad2a13.zip
tk-24e47b1d059cf68f776b57faf187e4e022ad2a13.tar.gz
tk-24e47b1d059cf68f776b57faf187e4e022ad2a13.tar.bz2
Fixed [fa32290898] - Can't dismiss ttk::menubutton menu until mouse has hovered over it
Diffstat (limited to 'library/menu.tcl')
-rw-r--r--library/menu.tcl4
1 files changed, 4 insertions, 0 deletions
diff --git a/library/menu.tcl b/library/menu.tcl
index a7aaa3f..b5dd88e 100644
--- a/library/menu.tcl
+++ b/library/menu.tcl
@@ -607,6 +607,10 @@ proc ::tk::MenuButtonDown menu {
if {![winfo viewable $menu]} {
return
}
+ if {[$menu index active] eq "none"} {
+ set Priv(window) {}
+ return
+ }
$menu postcascade active
if {$Priv(postedMb) ne "" && [winfo viewable $Priv(postedMb)]} {
grab -global $Priv(postedMb)