diff options
| author | fvogel <fvogel@noemail.net> | 2016-08-19 20:31:26 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2016-08-19 20:31:26 (GMT) |
| commit | 2995ddb51bcec10ba3635036f269fea5aaeba55b (patch) | |
| tree | 0ed4f7cc3249746ab389f2fdff2e52176f3dc688 /library | |
| parent | 98df48a83b3ef158c917c836788d5ba599e24da0 (diff) | |
| download | tk-2995ddb51bcec10ba3635036f269fea5aaeba55b.zip tk-2995ddb51bcec10ba3635036f269fea5aaeba55b.tar.gz tk-2995ddb51bcec10ba3635036f269fea5aaeba55b.tar.bz2 | |
Fixed [fa32290898] - Can't dismiss ttk::menubutton menu until mouse has hovered over it
FossilOrigin-Name: 470cbe0b68e159a456e954d45653006efff1dae3
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) |