summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-08-29 15:45:52 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-08-29 15:45:52 (GMT)
commit90c4c48d503b36af10f59f641ebe3b411a6ede4d (patch)
tree4123650cd41e5798ca888a1354f77c01aefa63c3 /library
parent75dc833771a79448de7b39fc5c33e3dc03b03c7c (diff)
parent1873b2da08408228b8b139ed92785a2f9c048b3b (diff)
downloadtk-90c4c48d503b36af10f59f641ebe3b411a6ede4d.zip
tk-90c4c48d503b36af10f59f641ebe3b411a6ede4d.tar.gz
tk-90c4c48d503b36af10f59f641ebe3b411a6ede4d.tar.bz2
Fixed [fa32290898] - Can't dismiss ttk::menubutton menu until mouse has hovered over it
Diffstat (limited to 'library')
-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)