From 3d6f6c8bbaca78285e953e194e9346982fc994e2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 30 Nov 2009 10:58:45 +0000
Subject: [PATCH] IDE: fixed double adding

git-svn-id: trunk@22873 -
---
 packager/packagesystem.pas | 19 +++++--------------
 1 file changed, 5 insertions(+), 14 deletions(-)

diff --git a/packager/packagesystem.pas b/packager/packagesystem.pas
index f404109273..ad62d25760 100644
--- a/packager/packagesystem.pas
+++ b/packager/packagesystem.pas
@@ -1775,21 +1775,12 @@ begin
 end;
 
 procedure TLazPackageGraph.AddStaticBasePackages;
-
-  procedure AddStaticBasePackage(NewPackage: TLazPackage;
-    var PackageVariable: TLazPackage);
-  begin
-    PackageVariable:=NewPackage;
-    AddPackage(NewPackage);
-    FLazarusBasePackages.Add(NewPackage);
-  end;
-
 begin
-  AddStaticBasePackage(CreateFCLPackage,FFCLPackage);
-  AddStaticBasePackage(CreateLCLPackage,FLCLPackage);
-  AddStaticBasePackage(CreateIDEIntfPackage,FIDEIntfPackage);
-  AddStaticBasePackage(CreateSynEditPackage,FSynEditPackage);
-  AddStaticBasePackage(CreateCodeToolsPackage,FCodeToolsPackage);
+  AddPackage(CreateFCLPackage);
+  AddPackage(CreateLCLPackage);
+  AddPackage(CreateIDEIntfPackage);
+  AddPackage(CreateSynEditPackage);
+  AddPackage(CreateCodeToolsPackage);
   // the default package will be added on demand
   FDefaultPackage:=CreateDefaultPackage;
 end;