diff options
| author | andreask <andreask> | 2014-02-06 21:24:55 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2014-02-06 21:24:55 (GMT) |
| commit | 7a798a24f01d93ee0397c32fbd69e3d9ff1dd6d2 (patch) | |
| tree | 62fe564ffb768c2a172856cba0292ca488224b16 | |
| parent | 97ba8ded34ad9fccb4aacea3d2e95eca79816f5d (diff) | |
| parent | 5881df59a3a56e34631a88b46bd0d14bf03010e2 (diff) | |
| download | tk-7a798a24f01d93ee0397c32fbd69e3d9ff1dd6d2.zip tk-7a798a24f01d93ee0397c32fbd69e3d9ff1dd6d2.tar.gz tk-7a798a24f01d93ee0397c32fbd69e3d9ff1dd6d2.tar.bz2 | |
Merged. Ticket [3279221]: Fixed setup of popup menu to prevent
immediate disappearance due to an event race.
| -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 5f46a01..d05740f 100644 --- a/library/menu.tcl +++ b/library/menu.tcl @@ -1343,6 +1343,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 } |