diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc index f6b3fb1d5e..0a1b780099 100644 --- a/lcl/interfaces/gtk2/gtk2proc.inc +++ b/lcl/interfaces/gtk2/gtk2proc.inc @@ -4503,6 +4503,7 @@ begin MouseCaptureIndex:=0; end; +{$IFDEF GTK2_USE_OLD_CAPTURE} procedure CaptureMouseForWidget(Widget: PGtkWidget; Owner: TMouseCaptureType); var CaptureWidget: PGtkWidget; @@ -4543,6 +4544,7 @@ begin gtk_grab_add(CaptureWidget); end; end; +{$ENDIF} function GetDefaultMouseCaptureWidget(Widget: PGtkWidget ): PGtkWidget; diff --git a/lcl/interfaces/gtk2/gtk2proc.pp b/lcl/interfaces/gtk2/gtk2proc.pp index dc3dfa0cd2..8f5fab0502 100644 --- a/lcl/interfaces/gtk2/gtk2proc.pp +++ b/lcl/interfaces/gtk2/gtk2proc.pp @@ -462,7 +462,9 @@ function TranslateGdkPointToClientArea(SourceWindow: PGdkWindow; function SubtractScoll(AWidget: PGtkWidget; APosition: TPoint): TPoint; // mouse capturing +{$IFDEF GTK2_USE_OLD_CAPTURE} procedure CaptureMouseForWidget(Widget: PGtkWidget; Owner: TMouseCaptureType); +{$ENDIF} function GetDefaultMouseCaptureWidget(Widget: PGtkWidget): PGtkWidget; procedure ReleaseMouseCapture; procedure ReleaseCaptureWidget(Widget : PGtkWidget);