From ab650debf38722ba3b39302a2045cd17ba308029 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:40:53 +0000
Subject: [PATCH] fixed synedit ensure cursor pos visible with tab chars

git-svn-id: trunk@2083 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index bcce9bdc37..01cc63cdf5 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -6495,6 +6495,10 @@ begin
       {$IfDef VerboseFocus}
       writeln('  H NewTopLevel FocusWidget=',HexStr(Cardinal(PGtkWindow(TopLevel)^.Focus_Widget),8));
       {$EndIf}
+      gtk_window_activate_focus(PGtkWindow(TopLevel));
+      {$IfDef VerboseFocus}
+      writeln('  I NewTopLevel FocusWidget=',HexStr(Cardinal(PGtkWindow(TopLevel)^.Focus_Widget),8));
+      {$EndIf}
     end;
   end
   else begin
@@ -7641,6 +7645,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.205  2003/01/06 13:59:45  mattias
+  fixed synedit ensure cursor pos visible with tab chars
+
   Revision 1.204  2003/01/01 12:38:53  mattias
   clean ups