From 21a209e9592b78c846d8742610724ecc44ddd6ac Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Tue, 26 Oct 2010 11:53:32 +0000
Subject: [PATCH] Gtk2: fixed crash because of misusage/fpc bug in
 IntersectRect.

git-svn-id: trunk@27879 -
---
 lcl/interfaces/gtk2/gtk2widgetset.inc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc
index e220698362..2b99305bba 100644
--- a/lcl/interfaces/gtk2/gtk2widgetset.inc
+++ b/lcl/interfaces/gtk2/gtk2widgetset.inc
@@ -3326,7 +3326,7 @@ var
   Pixbuf: PGdkPixbuf;
   pixels: pguchar;
   Dest: PByte;
-  R: TRect;
+  R, R1: TRect;
   i: Integer;
   SourceStride, DestStride: PtrUInt;
 begin
@@ -3349,7 +3349,8 @@ begin
   if ARect <> nil
   then begin
     // get intersection
-    IntersectRect(R, ARect^, R);
+    IntersectRect(R1, ARect^, R);
+    R := R1;
     ADesc.Width := R.Right - R.Left;
     ADesc.Height := R.Bottom - R.Top;
   end;