paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 07:02:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: do not set minversion for new dependencies by default

Browse Source 
git-svn-id: trunk@30999 -
This commit is contained in:
mattias 2011-06-01 11:36:09 +00:00
parent 3b9b3f2172
commit d1906a5c2b
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packager/packagedefs.pas
View File

@ -741,7 +741,8 @@ type
procedure RemoveRemovedDependency(Dependency: TPkgDependency);
procedure MoveRequiredDependencyUp(Dependency: TPkgDependency);
procedure MoveRequiredDependencyDown(Dependency: TPkgDependency);
function CreateDependencyWithOwner(NewOwner: TObject): TPkgDependency;
function CreateDependencyWithOwner(NewOwner: TObject;
WithMinVersion: boolean = false): TPkgDependency;
function Requires(APackage: TLazPackage): boolean;
procedure GetAllRequiredPackages(var List: TFPList; WithSelf: boolean);
// components
@ -3432,14 +3433,15 @@ begin
Dependency.MoveDownInList(FFirstRequiredDependency,pdlRequires);
end;
function TLazPackage.CreateDependencyWithOwner(
NewOwner: TObject): TPkgDependency;
function TLazPackage.CreateDependencyWithOwner(NewOwner: TObject;
WithMinVersion: boolean): TPkgDependency;
begin
Result:=TPkgDependency.Create;
with Result do begin
Owner:=NewOwner;
PackageName:=Self.Name;
MinVersion.Assign(Version);
if WithMinVersion then
MinVersion.Assign(Version);
Flags:=[pdfMinVersion];
end;
end;

14
packager/packagesystem.pas
View File

@ -1502,7 +1502,7 @@ begin
AddToProjectUsesSection:=false;
// add requirements
AddRequiredDependency(FCLPackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(FCLPackage.CreateDependencyWithOwner(Result,true));
// register files
{$I pkgfileslcl.inc}
@ -1553,7 +1553,7 @@ begin
AddToProjectUsesSection:=false;
// add requirements
AddRequiredDependency(LCLBasePackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(LCLBasePackage.CreateDependencyWithOwner(Result,true));
// add issues files
AddFile('interfaces/carbon/issues.xml','carbon-issues.xml',pftIssues,[],cpBase);
@ -1668,8 +1668,8 @@ begin
AddToProjectUsesSection:=false;
// add requirements
AddRequiredDependency(LCLPackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(IDEIntfPackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(LCLPackage.CreateDependencyWithOwner(Result,true));
AddRequiredDependency(IDEIntfPackage.CreateDependencyWithOwner(Result,true));
// add units
AddFile('synedit.pp','SynEdit',pftUnit,[],cpBase);
@ -1790,7 +1790,7 @@ begin
AddToProjectUsesSection:=false;
// add requirements
AddRequiredDependency(LCLPackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(LCLPackage.CreateDependencyWithOwner(Result,true));
// add units
AddFile('dividerbevel.pas','DividerBevel',pftUnit,[],cpBase);
@ -1832,7 +1832,7 @@ begin
AddToProjectUsesSection:=false;
// add requirements
AddRequiredDependency(FCLPackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(FCLPackage.CreateDependencyWithOwner(Result,true));
// add units
AddFile('basiccodetools.pas','BasicCodeTools',pftUnit,[],cpBase);
@ -1914,7 +1914,7 @@ begin
AddToProjectUsesSection:=false;
// add requirements
AddRequiredDependency(LCLPackage.CreateDependencyWithOwner(Result));
AddRequiredDependency(LCLPackage.CreateDependencyWithOwner(Result,true));
// add units
AddFile('actionseditor.pas','ActionsEditor',pftUnit,[],cpBase);