From c38c8a75bc66a85916b9eb90c95d28327bb36ce1 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:16 +0000
Subject: [PATCH] AJ: fixed mem leek in FillScreenFonts

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

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 35c3ef704d..ddf12ca8af 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -3981,6 +3981,7 @@ begin
         If ScreenFonts.IndexOf(Tmp) < 0 then
           ScreenFonts.Append(Tmp);
     end;
+   XFreeFontNames(theFonts);
   {$EndIf Win32}
 end;
 
@@ -3992,6 +3993,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.145  2002/10/28 21:04:26  lazarus
+  AJ: fixed mem leek in FillScreenFonts
+
   Revision 1.144  2002/10/28 18:17:04  lazarus
   MG: impoved focussing, unfocussing on destroy and fixed unit search