From 69cb36d62adad6dbe3804324b25059090d3b3f15 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 13 Mar 2013 10:15:15 +0000 Subject: [PATCH] lcl: gtk2: fixed LM_CONTEXTMENU for TCustomControl git-svn-id: trunk@40541 - --- lcl/interfaces/gtk2/gtk2int.pas | 1 - lcl/interfaces/gtk2/gtk2widgetset.inc | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk2/gtk2int.pas b/lcl/interfaces/gtk2/gtk2int.pas index 37f9916168..1cdbc216ed 100644 --- a/lcl/interfaces/gtk2/gtk2int.pas +++ b/lcl/interfaces/gtk2/gtk2int.pas @@ -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); diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc index 4fd6c4e751..f3dfb4d936 100644 --- a/lcl/interfaces/gtk2/gtk2widgetset.inc +++ b/lcl/interfaces/gtk2/gtk2widgetset.inc @@ -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);