From b081c0a951e83044f8ca827c7fbd520041722e3a Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:02 +0000
Subject: [PATCH] MG: fixed mem leak in TComboBox

git-svn-id: trunk@841 -
---
 lcl/interfaces/gtk/gtkobject.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 2f5ea91043..a4049b83f6 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -2862,7 +2862,11 @@ begin
   if Sender is TControl then begin
     case TControl(Sender).fCompStyle of
     csComboBox:
-      SetComboBoxText(PGtkCombo(Handle),nil);
+      begin
+        SetComboBoxText(PGtkCombo(Handle),nil);
+        FreeWinWidgetInfo(PGtkCombo(Handle)^.Entry);
+        FreeWinWidgetInfo(PGtkCombo(Handle)^.Button);
+      end;
       
     end;
   end
@@ -5833,6 +5837,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.217  2002/09/16 17:34:37  lazarus
+  MG: fixed mem leak in TComboBox
+
   Revision 1.216  2002/09/16 16:06:21  lazarus
   MG: replaced halt with raiseexception