From db3b5ed9d7ea7c4517f38cc2d268e7fec162be80 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 19 May 2011 20:16:01 +0000
Subject: [PATCH] IDE: fixed mem leak

git-svn-id: trunk@30818 -
---
 ideintf/packageintf.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ideintf/packageintf.pas b/ideintf/packageintf.pas
index f43a28e840..8d7b052949 100644
--- a/ideintf/packageintf.pas
+++ b/ideintf/packageintf.pas
@@ -218,6 +218,7 @@ type
                             const AMethod: TMethod);
     procedure DoCallNotifyHandler(HandlerType: TPkgIntfHandlerType; Sender: TObject);
   public
+    destructor Destroy; override;
     function DoOpenPackageWithName(const APackageName: string;
                          Flags: TPkgOpenFlags;
                          ShowAbort: boolean): TModalResult; virtual; abstract;
@@ -676,6 +677,15 @@ begin
   FHandlers[HandlerType].CallNotifyEvents(Sender);
 end;
 
+destructor TPackageEditingInterface.Destroy;
+var
+  h: TPkgIntfHandlerType;
+begin
+  for h:=Low(FHandlers) to high(FHandlers) do
+    FreeAndNil(FHandlers[h]);
+  inherited Destroy;
+end;
+
 procedure TPackageEditingInterface.RemoveAllHandlersOfObject(AnObject: TObject);
 var
   HandlerType: TPkgIntfHandlerType;