diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-11-13 20:11:03 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-11-13 20:11:03 +0100 |
| commit | 57d38a71b9206ca14a8caec38d57ed06d15290bf (patch) | |
| tree | 992b60be191f37b9eafbf89a02791ba702b1caf7 /libgtk_kylix/GTKMenus.pas | |
| parent | a9fe7ddf61cf307af9fa66efb0e45a81a39f1de6 (diff) | |
| parent | 0f3794fe20f626fe3641c28f7710aaf128a6d430 (diff) | |
| download | tuxcmd-57d38a71b9206ca14a8caec38d57ed06d15290bf.tar.xz | |
Merge branch 'master' of ssh://staflik/projects/git/tuxcmd
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; |