diff options
| author | Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com> | 2008-11-12 16:12:07 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@tbzatek.englab.brq.redhat.com> | 2008-11-12 16:12:07 +0100 |
| commit | 0f3794fe20f626fe3641c28f7710aaf128a6d430 (patch) | |
| tree | cd807c91d5550ebd7925163c3c15756062c42b2a /libgtk_kylix/GTKMenus.pas | |
| parent | c64f56fa977eaa96861cd5d8bac03c59552838df (diff) | |
| download | tuxcmd-0f3794fe20f626fe3641c28f7710aaf128a6d430.tar.xz | |
Popup menu improvements
Diffstat (limited to 'libgtk_kylix/GTKMenus.pas')
| -rw-r--r-- | libgtk_kylix/GTKMenus.pas | 2 |
1 files changed, 1 insertions, 1 deletions
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; |