paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 16:31:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed double adding

Browse Source 
git-svn-id: trunk@22873 -
This commit is contained in:
mattias 2009-11-30 10:58:45 +00:00
parent 690f6d84b4
commit 3d6f6c8bba
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packager/packagesystem.pas
View File

@ -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;