From c30d8825cf54c7e7e60845e9b551371fec4a37f6 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 19 Apr 2010 00:00:59 +0000
Subject: [PATCH] IDEIntf: added PackageEditingInterface.GetPackages

git-svn-id: trunk@24705 -
---
 ideintf/packageintf.pas |  3 +++
 packager/pkgmanager.pas | 12 ++++++++++++
 2 files changed, 15 insertions(+)

diff --git a/ideintf/packageintf.pas b/ideintf/packageintf.pas
index f4fe8f4e93..87519bba82 100644
--- a/ideintf/packageintf.pas
+++ b/ideintf/packageintf.pas
@@ -172,6 +172,9 @@ type
     function GetSourceFilesOfOwners(OwnerList: TFPList): TStrings; virtual; abstract;
     function GetPossibleOwnersOfUnit(const UnitFilename: string;
                                      Flags: TPkgIntfOwnerSearchFlags): TFPList; virtual; abstract;
+
+    function GetPackageCount: integer; virtual; abstract;
+    function GetPackages(Index: integer): TIDEPackage; virtual; abstract;
   end;
   
 var
diff --git a/packager/pkgmanager.pas b/packager/pkgmanager.pas
index 0bfa9859ac..61a2d1f222 100644
--- a/packager/pkgmanager.pas
+++ b/packager/pkgmanager.pas
@@ -232,6 +232,8 @@ type
     function ShowBrokenDependenciesReport(Dependencies: TFPList): TModalResult;
     procedure RebuildDefineTemplates; override;
     procedure LazarusSrcDirChanged; override;
+    function GetPackageCount: integer; override;
+    function GetPackages(Index: integer): TIDEPackage; override;
 
     // project
     function OpenProjectDependencies(AProject: TProject;
@@ -2705,6 +2707,16 @@ begin
   end;
 end;
 
+function TPkgManager.GetPackageCount: integer;
+begin
+  Result:=PackageGraph.Count;
+end;
+
+function TPkgManager.GetPackages(Index: integer): TIDEPackage;
+begin
+  Result:=PackageGraph.Packages[Index];
+end;
+
 function TPkgManager.DoCompileProjectDependencies(AProject: TProject;
   Flags: TPkgCompileFlags): TModalResult;
 begin