IDE: allow to uninstall dummy packages

git-svn-id: trunk@41268 -
This commit is contained in:
mattias 2013-05-19 00:40:29 +00:00
parent e877a46d2e
commit 306c8060f6

View File

@ -949,8 +949,7 @@ begin
APackage:=PackageGraph.FindPackageWithID(DelPackageID);
if APackage<>nil then begin
// check if package is a base package
if APackage.AutoCreated
or PackageGraph.IsStaticBasePackage(APackage.Name) then begin
if PackageGraph.IsStaticBasePackage(APackage.Name) then begin
TVNode.Selected:=false;
MessageDlg(lisUninstallImpossible,
Format(lisThePackageCanNotBeUninstalledBecauseItIsNeededByTh, [