diff --git a/lcl/interfaces/gtk/gtkcallback.inc b/lcl/interfaces/gtk/gtkcallback.inc
index e29133f134..dd3ebdcc77 100644
--- a/lcl/interfaces/gtk/gtkcallback.inc
+++ b/lcl/interfaces/gtk/gtkcallback.inc
@@ -37,7 +37,7 @@ begin
 
   if (TObject(Target) is TCustomControl) and
   {$ifdef gtk1}
-     GtkWidgetIsA(PGtkWidget(TCustomControl(Target).Handle), GTKAPIWidget_GetType) and
+     GtkWidgetIsA(PGtkWidget(TCustomControl(Target).Handle), GTKAPIWidget_Type) and
   {$endif}
      not (csOpaque in TWinControl(Target).ControlStyle) then
   begin