From e978b5dfa3fce531e61f49686113fd26f3fcc7cb Mon Sep 17 00:00:00 2001
From: andreask <andreask>
Date: Thu, 6 Feb 2014 21:20:39 +0000
Subject: Ticket [3279221]: Fixed setup of popup menu to prevent immediate
 disappearance due to an event race.

---
 library/menu.tcl | 1 +
 1 file changed, 1 insertion(+)

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
     }
-- 
cgit v0.12