added package links

git-svn-id: trunk@3994 -

.gitattributes

@@ -820,6 +820,7 @@ packager/componentreg.pas svneol=native#text/pascal
 packager/lazaruspackageintf.pas svneol=native#text/pascal
 packager/packagedefs.pas svneol=native#text/pascal
 packager/packageeditor.pas svneol=native#text/pascal
+packager/packagelinks.pas svneol=native#text/pascal
 packager/packagesystem.pas svneol=native#text/pascal
 packager/pkggraphexporer.pas svneol=native#text/pascal
 packager/pkgmanager.pas svneol=native#text/pascal

packager/packagelinks.pas

@@ -0,0 +1,82 @@
+{  $Id$  }
+{
+ /***************************************************************************
+                            packagelinks.pas
+                            ----------------
+
+
+ ***************************************************************************/
+
+ ***************************************************************************
+ *                                                                         *
+ *   This source is free software; you can redistribute it and/or modify   *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This code is distributed in the hope that it will be useful, but      *
+ *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
+ *   General Public License for more details.                              *
+ *                                                                         *
+ *   A copy of the GNU General Public License is available on the World    *
+ *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
+ *   obtain it by writing to the Free Software Foundation,                 *
+ *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
+ *                                                                         *
+ ***************************************************************************
+
+  Author: Mattias Gaertner
+
+  Abstract:
+    Package links helps the IDE to find package filenames by name
+}
+unit PackageLinks;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils; 
+  
+type
+  TPkgLinkOrigin = (
+    ploGlobal,
+    ploUser
+    );
+  TPkgLinkOrigins = set of TPkgLinkOrigin;
+
+  TPackageLink = class
+  private
+    FOrigin: TPkgLinkOrigin;
+    procedure SetOrigin(const AValue: TPkgLinkOrigin);
+  public
+    constructor Create;
+    destructor Destroy; override;
+  public
+    property Origin: TPkgLinkOrigin read FOrigin write SetOrigin;
+  end;
+
+implementation
+
+{ TPackageLink }
+
+procedure TPackageLink.SetOrigin(const AValue: TPkgLinkOrigin);
+begin
+  if FOrigin=AValue then exit;
+  FOrigin:=AValue;
+end;
+
+constructor TPackageLink.Create;
+begin
+
+end;
+
+destructor TPackageLink.Destroy;
+begin
+  inherited Destroy;
+end;
+
+end.
+