summaryrefslogtreecommitdiffstats
path: root/library/menu.tcl
diff options
context:
space:
mode:
authorandreask <andreask>2014-02-06 21:24:55 (GMT)
committerandreask <andreask>2014-02-06 21:24:55 (GMT)
commit6be7cac02da8b4adafdb101e571628f100cf3798 (patch)
tree62fe564ffb768c2a172856cba0292ca488224b16 /library/menu.tcl
parent30561dab14d592b111f7fa0206d79c9c265b00ea (diff)
parente978b5dfa3fce531e61f49686113fd26f3fcc7cb (diff)
downloadtk-6be7cac02da8b4adafdb101e571628f100cf3798.zip
tk-6be7cac02da8b4adafdb101e571628f100cf3798.tar.gz
tk-6be7cac02da8b4adafdb101e571628f100cf3798.tar.bz2
Merged. Ticket [3279221]: Fixed setup of popup menu to prevent
immediate disappearance due to an event race.
Diffstat (limited to 'library/menu.tcl')
-rw-r--r--library/menu.tcl1
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
}