From 0f3794fe20f626fe3641c28f7710aaf128a6d430 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com>
Date: Wed, 12 Nov 2008 16:12:07 +0100
Subject: Popup menu improvements

---
 libgtk_kylix/GTKMenus.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'libgtk_kylix')

diff --git a/libgtk_kylix/GTKMenus.pas b/libgtk_kylix/GTKMenus.pas
index 2c5a4a3..45bde23 100644
--- a/libgtk_kylix/GTKMenus.pas
+++ b/libgtk_kylix/GTKMenus.pas
@@ -400,7 +400,7 @@ end;
 procedure TGTKMenuItem.PopUp;
 begin
   if Assigned(FOnPopup) then FOnPopup(Self);
-  if (FItems <> nil) and (FItems.Count > 0) then gtk_menu_popup(PGtkMenu(FMenu), nil, nil, nil, nil, 3, 0);
+  if (FItems <> nil) and (FItems.Count > 0) then gtk_menu_popup(PGtkMenu(FMenu), nil, nil, nil, nil, 3, gtk_get_current_event_time);
 end;
 
 procedure TGTKMenuItem.PopDown;
-- 
cgit v1.2.3