From 0c1d8a9bb0372e65f0725368b85803609ed7ded7 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 21 Aug 2017 07:55:37 +0000
Subject: [PATCH] gtk2: do not automatically grab focus when tab clicked. issue
 #32237

git-svn-id: trunk@55726 -
---
 lcl/interfaces/gtk2/gtk2callback.inc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2callback.inc b/lcl/interfaces/gtk2/gtk2callback.inc
index 41c2513974..159ab9ae80 100644
--- a/lcl/interfaces/gtk2/gtk2callback.inc
+++ b/lcl/interfaces/gtk2/gtk2callback.inc
@@ -2179,7 +2179,12 @@ begin
         if Assigned(AClip) then
           gtk_clipboard_set_text(AClip, PgChar(AClipText), length(AClipText));
       end else
-        LCLIntf.SetFocus(AWinControl.Handle);
+      begin
+        if (AWinControl is TCustomTabControl) then
+          // do not grab focus. issue #32237
+        else
+          LCLIntf.SetFocus(AWinControl.Handle);
+      end;
     end;
 
     // send the message directly to the LCL