Adjusted message clear

HashLoad · Jun 11, 2019 · d540277 · d540277
1 parent 52a6cd6
commit d540277
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/core/Boss.Modules.PackageProcessor.pas b/src/core/Boss.Modules.PackageProcessor.pas
@@ -89,9 +89,6 @@ procedure TBossPackageProcessor.LoadBpls(AProjectPath: string);
   LFlag: Integer;
   LHnd: NativeUInt;
 begin
-  TProviderMessage.GetInstance.Clear;
-
-
   LBpls := GetBplList(AProjectPath);
   for LBpl in LBpls do
   begin
@@ -122,8 +119,6 @@ procedure TBossPackageProcessor.LoadTools(AProjectPath: string);
   LMenu: TMenuItem;
   LMenuItem: TMenuItem;
 begin
-  TProviderMessage.GetInstance.Clear;
-
   LMenu := NativeServices.MainMenu.Items.Find('Tools');
   LBins := GetBinList(AProjectPath);
 
@@ -147,6 +142,7 @@ procedure TBossPackageProcessor.LoadTools(AProjectPath: string);
 
 class procedure TBossPackageProcessor.OnActiveProjectChanged(AProject: string);
 begin
+  TProviderMessage.GetInstance.Clear;
   TProviderMessage.GetInstance.WriteLn('Loading packages from project ' + AProject);
 
   GetInstance.UnloadOlds;