From 78cf54924bd880617b1f4e5b534be161db2190fc Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 4 Apr 2020 09:06:18 +0000
Subject: [PATCH] Packager: Set ToolStatus to "itBuilder" also when building a
 package.

git-svn-id: trunk@62879 -
---
 packager/pkgmanager.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/packager/pkgmanager.pas b/packager/pkgmanager.pas
index c7308e5a09..b7b52ceeac 100644
--- a/packager/pkgmanager.pas
+++ b/packager/pkgmanager.pas
@@ -4222,6 +4222,8 @@ end;
 
 function TPkgManager.DoCompilePackage(APackage: TIDEPackage;
   Flags: TPkgCompileFlags; ShowAbort: boolean): TModalResult;
+var
+  OldToolStatus: TLazToolStatus;
 begin
   Result:=mrCancel;
 
@@ -4253,7 +4255,13 @@ begin
   if Result<>mrOk then exit;
 
   // compile
+  if LazarusIDE<>nil then begin
+    OldToolStatus:=LazarusIDE.ToolStatus;
+    LazarusIDE.ToolStatus:=itBuilder;
+  end;
   Result:=PackageGraph.CompilePackage(TLazPackage(APackage),Flags,false);
+  if LazarusIDE<>nil then
+    LazarusIDE.ToolStatus:=OldToolStatus;
 end;
 
 function TPkgManager.DoCreatePackageMakefile(APackage: TLazPackage;