Browse Source

* Show message to inform why depending packages are installed

git-svn-id: trunk@16897 -
joost 14 years ago
parent
commit
4e18e505f6
3 changed files with 4 additions and 2 deletions
  1. 1 0
      utils/fppkg/pkgcommands.pp
  2. 2 2
      utils/fppkg/pkgglobals.pp
  3. 1 0
      utils/fppkg/pkgmessages.pp

+ 1 - 0
utils/fppkg/pkgcommands.pp

@@ -389,6 +389,7 @@ begin
     FindBrokenPackages(SL);
     if SL.Count=0 then
       break;
+    pkgglobals.Log(vlProgres,SWarnReinstallDependent);
     for i:=0 to SL.Count-1 do
       begin
         ExecuteAction(SL[i],'build');

+ 2 - 2
utils/fppkg/pkgglobals.pp

@@ -52,11 +52,11 @@ Const
   );
 
 Type
-  TLogLevel = (vlError,vlWarning,vlInfo,vlCommands,vlDebug);
+  TLogLevel = (vlError,vlWarning,vlInfo,vlCommands,vlDebug,vlProgres);
   TLogLevels = Set of TLogLevel;
 
 const
-  DefaultLogLevels = [vlError,vlWarning];
+  DefaultLogLevels = [vlError,vlWarning, vlProgres];
   AllLogLevels = [vlError,vlWarning,vlCommands,vlInfo];
 
 type

+ 1 - 0
utils/fppkg/pkgmessages.pp

@@ -109,6 +109,7 @@ Resourcestring
   SDbgPackageDependencyOtherTarget  = 'Dependency on package %s is not for %s';
   SDbgObsoleteDependency     = 'Obsolete dependency found on package %s';
 
+  SWarnReinstallDependent    = 'Re-install packages which are dependent on just installed packages';
 
 implementation