From 4f1340e5d6ec1545e81d7071a60f092ddd5b3f79 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 28 Sep 2007 17:30:37 +0000
Subject: [PATCH] gtk: reduce amount of gtk warnings in console produced by
 DrawFrameControl

git-svn-id: trunk@12219 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 9e36a0178f..8d10fa4b56 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -2579,7 +2579,7 @@ var
            State,
            Shadow,
            nil,
-           Widget,
+           GetStyleWidget(lgsButton),
            'button',
            Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
            Rect.Right-Rect.Left,Rect.Bottom-Rect.Top)
@@ -2588,7 +2588,7 @@ var
            State,
            Shadow,
            nil,
-           Widget,
+           GetStyleWidget(lgsButton),
            'button',
            Rect.Left+DCOrigin.X,Rect.Top+DCOrigin.Y,
            Rect.Right-Rect.Left,Rect.Bottom-Rect.Top);
@@ -2658,10 +2658,12 @@ var
     end;
   end;
 
-var ClientWidget: PGtkWidget;
+var 
+  ClientWidget: PGtkWidget;
 begin
   Result := False;
-  if IsValidDC(DC) then begin
+  if IsValidDC(DC) then 
+  begin
     Widget:=TDeviceContext(DC).DCWidget;
     ClientWidget:=GetFixedWidget(Widget);
     if ClientWidget<>nil then