From 9fd55ac2107fa833d3fe6650c2969a42bed41dde Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 28 Jun 2006 21:51:25 +0000
Subject: [PATCH] gtk intf: added client rectangle size to rcPaint

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

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index b2ea625b28..404ac46794 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -1083,16 +1083,18 @@ function GtkPaintMessageToPaintMessage(var GtkPaintMsg: TLMGtkPaint;
   FreeGtkPaintMsg: boolean): TLMPaint;
 var
   PS : PPaintStruct;
+  Widget: PGtkWidget;
 begin
   Result.Msg:=LM_PAINT;
   New(PS);
   PS^.hDC:=0;
+  Widget:=GtkPaintMsg.Data.Widget;
   If GtkPaintMsg.Data.RepaintAll then
-    PS^.rcPaint := Rect(0,0,0,0)
+    PS^.rcPaint := Rect(0,0,Widget^.Allocation.Width,Widget^.Allocation.Height)
   else
     PS^.rcPaint := GtkPaintMsg.Data.Rect;
 
-  Result.DC:=BeginPaint(THandle(GtkPaintMsg.Data.Widget), PS^);
+  Result.DC:=BeginPaint(THandle(Widget), PS^);
   Result.PaintStruct:=PS;
   Result.Result:=0;
   if FreeGtkPaintMsg then