From 594853491680074c1528a13da6b7f1ab445282f7 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 29 Apr 2009 07:21:28 +0000
Subject: [PATCH] gtk2: fix drawing of tooltips after gtk tooltip color change
 or theme change (issue #0013600)

git-svn-id: trunk@19683 -
---
 lcl/interfaces/gtk/gtkproc.inc | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 6452148b9e..cdac3d8778 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -7658,6 +7658,13 @@ begin
     Result:=GetStyleWithName(LazGtkStyleNames[aStyle]);
 end;
 
+procedure tooltip_window_style_set(Widget: PGtkWidget; PreviousStyle: PGtkStyle;
+          StyleObject: PStyleObject); cdecl;
+begin
+  StyleObject^.Style := gtk_widget_get_style(Widget);
+  UpdateSysColorMap(Widget, lgsToolTip);
+end;
+
 {------------------------------------------------------------------------------
   Function: GetStyleWithName
   Params: none
@@ -7864,12 +7871,17 @@ begin
         StyleObject^.Widget := CreateStyleNotebook;
       end
     else
-      If CompareText(WName,LazGtkStyleNames[lgsTooltip])=0 then begin
+      if CompareText(WName,LazGtkStyleNames[lgsTooltip])=0 then
+      begin
         lgs := lgsTooltip;
         Tp := gtk_tooltips_new;
         gtk_tooltips_force_window(Tp);
         StyleObject^.Widget := PGTKTooltips(Tp)^.Tip_Window;
         gtk_widget_ref(StyleObject^.Widget);// MG: why is this needed?
+        {$IFNDEF GTK1}
+        g_signal_connect(StyleObject^.Widget, 'style-set',
+			 TGCallback(@tooltip_window_style_set), StyleObject);
+        {$ENDIF}
         WidgetName := 'gtk-tooltip-lcl';
         StyleObject^.Obj := Tp;
         Tp := nil;
@@ -7961,7 +7973,6 @@ begin
         else
         if GtkWidgetIsA(StyleObject^.Widget,GTK_TYPE_MENU_ITEM) then
         begin
-          DebugLn(['GetStyleWithName adding menuitem to menubar']);
           gtk_menu_bar_append({$IFDEF Gtk1}
                               PGtkMenuBar(GetStyleWidget(lgsMenuBar)),
                               {$ELSE}