summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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
}