paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 06:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: fixed LM_CONTEXTMENU for TCustomControl

Browse Source 
git-svn-id: trunk@40541 -
This commit is contained in:
mattias 2013-03-13 10:15:15 +00:00
parent 17eb1a44d9
commit 69cb36d62a
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -285,7 +285,6 @@ type
procedure AppTerminate; override;
procedure AppSetTitle(const {%H-}ATitle: string); override;
// copied from GtkInt
procedure _SetCallbackEx(const AMsg: LongInt; const AGTKObject: PGTKObject; const ALCLObject: TObject; Direct: Boolean);
procedure SetCallbackEx(const AMsg: LongInt; const AGTKObject: PGTKObject; const ALCLObject: TObject; Direct: Boolean);
procedure SetCommonCallbacks(const AGTKObject: PGTKObject; const ALCLObject: TObject);

2
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -826,7 +826,7 @@ begin
end;
LM_CONTEXTMENU:
ConnectSenderSignal(gCore, 'popup-menu', @gtk2PopupMenuCB);
ConnectSenderSignal(gObject, 'popup-menu', @gtk2PopupMenuCB); // TCustomControl needs gObject, not gCore nor gFixed
else
_SetCallbackEx(AMsg, AGTKObject, ALCLObject, Direct);