From a597438a7ed9c940a4c2e2aaa2321dc418d7bcc4 Mon Sep 17 00:00:00 2001
From: andrew <andrew@lazarus-ide.org>
Date: Sun, 5 Jan 2014 17:26:14 +0000
Subject: [PATCH] Fixed error where an uninitialzed value was passed to cairo

git-svn-id: trunk@43652 -
---
 lcl/interfaces/gtk3/gtk3winapi.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/gtk3/gtk3winapi.inc b/lcl/interfaces/gtk3/gtk3winapi.inc
index e3fa585128..6dd2eb3a03 100644
--- a/lcl/interfaces/gtk3/gtk3winapi.inc
+++ b/lcl/interfaces/gtk3/gtk3winapi.inc
@@ -1497,6 +1497,8 @@ begin
           exit;
         end;
 
+        Clip := CreateRectRGN(R.Left, R.Top, R.Right, R.Bottom);
+
         Tmp := CreateEmptyRegion;
         Result := CombineRGN(Tmp, HRGN(Clip), RGN, MODE);
 
@@ -1507,6 +1509,7 @@ begin
         // use code from intfbasewinapi.inc TWidgetSet.ExcludeClipRect()
         // which calls this function and then combineRgn.
         SelectClipRGN(DC, Tmp);
+        DeleteObject(Clip);
         DeleteObject(Tmp);
       end;
   end;