From 2dcaeb39e038a5b51c8a512884780c2c231bdd72 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 11 Aug 2013 17:45:35 +0000
Subject: [PATCH] gtk2: fixed mem leak

git-svn-id: trunk@42388 -
---
 lcl/interfaces/gtk2/gtk2winapi.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index 1214645db4..48d1cc041d 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -1357,6 +1357,7 @@ var
   AttrListTemporary: Boolean;
   Attr: PPangoAttribute;
   CurFont: PPangoLayout;
+  TmpStr: PChar;
 begin
   {$IFDEF VerboseFonts}
   DebugLn('TGtk2WidgetSet.CreateFontIndirectEx A Name=',LogFont.lfFaceName,' Height=',dbgs(LogFont.lfHeight),' LongName=',LongFontName);
@@ -1467,7 +1468,9 @@ begin
       if (pango_font_description_get_style (PangoDesc) = PANGO_STYLE_NORMAL)
           and (lfItalic <> 0) then
         pango_font_description_set_style(PangoDesc, PANGO_STYLE_ITALIC);
-      aStyle := pango_font_description_to_string(PangoDesc);
+      TmpStr := pango_font_description_to_string(PangoDesc);
+      aStyle := TmpStr;
+      g_free(TmpStr);
       if (aSize=0) and (lfHeight<>0) then
       begin
         // a size is not specified, try to calculate one based on lfHeight