From 6cb0aa7f54ffdc4ea910612fb74136b3fd6259d9 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 29 May 2009 01:08:07 +0000
Subject: [PATCH] gtk2: don't select text in TEdit on focus if AutoSelect =
 False (issue #0013856)

git-svn-id: trunk@20287 -
---
 lcl/interfaces/gtk2/gtk2wsstdctrls.pp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
index 514de3b5fc..3540fd0ce1 100644
--- a/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
+++ b/lcl/interfaces/gtk2/gtk2wsstdctrls.pp
@@ -860,8 +860,13 @@ class function TGtk2WSCustomEdit.CreateHandle(const AWinControl: TWinControl;
 begin
   Result := TGtkWSCustomEdit{(ClassParent)}.CreateHandle(AWinControl, AParams);
   if Result <> 0 then
+  begin
     gtk_entry_set_has_frame(PGtkEntry(Result),
       TCustomEdit(AWinControl).BorderStyle <> bsNone);
+    // don't select it on focus since LCL do this itself
+    g_object_set(gtk_widget_get_settings(PGtkWidget(Result)),
+	                'gtk-entry-select-on-focus', [0, nil]);
+  end;
 end;
 
 class function TGtk2WSCustomEdit.GetSelStart(const ACustomEdit: TCustomEdit