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);