diff options
author | fvogel <fvogelnew1@free.fr> | 2016-08-29 15:45:52 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2016-08-29 15:45:52 (GMT) |
commit | 90c4c48d503b36af10f59f641ebe3b411a6ede4d (patch) | |
tree | 4123650cd41e5798ca888a1354f77c01aefa63c3 /library | |
parent | 75dc833771a79448de7b39fc5c33e3dc03b03c7c (diff) | |
parent | 1873b2da08408228b8b139ed92785a2f9c048b3b (diff) | |
download | tk-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.tcl | 4 |
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) |