paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:59:21 +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 RemoveRemovedDependency(Dependency: TPkgDependency);
procedure MoveRequiredDependencyUp(Dependency: TPkgDependency); procedure MoveRequiredDependencyUp(Dependency: TPkgDependency);
procedure MoveRequiredDependencyDown(Dependency: TPkgDependency); procedure MoveRequiredDependencyDown(Dependency: TPkgDependency);
function CreateDependencyWithOwner(NewOwner: TObject): TPkgDependency; function CreateDependencyWithOwner(NewOwner: TObject;
WithMinVersion: boolean = false): TPkgDependency;
function Requires(APackage: TLazPackage): boolean; function Requires(APackage: TLazPackage): boolean;
procedure GetAllRequiredPackages(var List: TFPList; WithSelf: boolean); procedure GetAllRequiredPackages(var List: TFPList; WithSelf: boolean);
// components // components
@ -3432,14 +3433,15 @@ begin
Dependency.MoveDownInList(FFirstRequiredDependency,pdlRequires); Dependency.MoveDownInList(FFirstRequiredDependency,pdlRequires);
end; end;
function TLazPackage.CreateDependencyWithOwner( function TLazPackage.CreateDependencyWithOwner(NewOwner: TObject;
NewOwner: TObject): TPkgDependency; WithMinVersion: boolean): TPkgDependency;
begin begin
Result:=TPkgDependency.Create; Result:=TPkgDependency.Create;
with Result do begin with Result do begin
Owner:=NewOwner; Owner:=NewOwner;
PackageName:=Self.Name; PackageName:=Self.Name;
MinVersion.Assign(Version); if WithMinVersion then
MinVersion.Assign(Version);
Flags:=[pdfMinVersion]; Flags:=[pdfMinVersion];
end; end;
end; end;

14
packager/packagesystem.pas
View File

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