From f0e812101952c86597a3d7568f4d0b079e2fc4a5 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:46:40 +0000
Subject: [PATCH] MG: in design mode the mouse cursor is now also set for
 hidden gdkwindows

git-svn-id: trunk@794 -
---
 lcl/interfaces/gtk/gtkproc.inc | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 14097d8b54..1ba18f5d28 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -852,6 +852,21 @@ end;
   Sets the cursor for a widget
  ------------------------------------------------------------------------------}
 procedure SetCursor(AWinControl : TWinControl);
+
+  procedure SetDesigningCursor(AWindow: PGdkWindow);
+  var
+    ChildWindows, ListEntry: PGList;
+  begin
+    gdk_window_set_cursor(AWindow, Cursor_StdArrow);
+    ChildWindows:=gdk_window_get_children(AWindow);
+    ListEntry:=ChildWindows;
+    while ListEntry<>nil do begin
+      SetDesigningCursor(PGdkWindow(ListEntry^.Data));
+      ListEntry:=ListEntry^.Next;
+    end;
+    g_list_free(ChildWindows);
+  end;
+
 var
   AWidget, FixWidget: PGtkWidget;
   AWindow: PGdkWindow;
@@ -868,8 +883,9 @@ begin
     AWindow:=AWidget^.Window;
   if AWindow=nil then exit;
 
+if AWinControl is TEdit then writeln('AAA1 SetCursor ',AWinControl.Name,' ',csDesigning in AWinControl.ComponentState);
   if csDesigning in AWinControl.ComponentState then begin
-    gdk_window_set_cursor (AWindow, Cursor_Arrow);
+    SetDesigningCursor(AWindow);
   end else begin
     case AWinControl.Cursor of
     crAppStart : gdk_window_set_cursor (AWindow, Cursor_Watch);
@@ -1479,6 +1495,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.49  2002/06/21 17:54:24  lazarus
+  MG: in design mode the mouse cursor is now also set for hidden gdkwindows
+
   Revision 1.48  2002/06/21 16:59:16  lazarus
   MG: TControl.Cursor is now set, reduced auto reaction of widgets in design mode