diff options
| author | andreask <andreask@noemail.net> | 2014-02-06 21:20:39 (GMT) |
|---|---|---|
| committer | andreask <andreask@noemail.net> | 2014-02-06 21:20:39 (GMT) |
| commit | a00db9539d2f4369a84496cc629922a56f4f50d8 (patch) | |
| tree | ca2fdeabb5615c51e3617e2fff48b8b7301c98db /library | |
| parent | e0731b19e0a3b7cafc88a396004412029583ced5 (diff) | |
| download | tk-a00db9539d2f4369a84496cc629922a56f4f50d8.zip tk-a00db9539d2f4369a84496cc629922a56f4f50d8.tar.gz tk-a00db9539d2f4369a84496cc629922a56f4f50d8.tar.bz2 | |
Ticket [3279221]: Fixed setup of popup menu to prevent immediate
disappearance due to an event race.
FossilOrigin-Name: b29e5916485a6331beeca34f14637e55450a4677
Diffstat (limited to 'library')
| -rw-r--r-- | library/menu.tcl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/library/menu.tcl b/library/menu.tcl index f133c87..8b29f00 100644 --- a/library/menu.tcl +++ b/library/menu.tcl @@ -1344,6 +1344,7 @@ proc ::tk_popup {menu x y {entry {}}} { tk::SaveGrabInfo $menu grab -global $menu set Priv(popup) $menu + set Priv(window) $menu set Priv(menuActivated) 1 tk_menuSetFocus $menu } |