IDE: new package: auto fixing translation bugs for new package name

git-svn-id: trunk@16068 -
This commit is contained in:
mattias 2008-08-15 12:57:20 +00:00
parent f42e5ac169
commit 5a345bd3b3

View File

@ -2259,7 +2259,7 @@ var
CurEditor: TPackageEditorForm;
begin
// create a new package with standard dependencies
NewPackage:=PackageGraph.CreateNewPackage(lisPkgMangNewPackage);
NewPackage:=PackageGraph.CreateNewPackage(NameToValidIdentifier(lisPkgMangNewPackage));
PackageGraph.AddDependencyToPackage(NewPackage,
PackageGraph.FCLPackage.CreateDependencyWithOwner(NewPackage));
NewPackage.Modified:=false;