From 453ccf4100ec3c4ebd66a5e151b64158c6d19a33 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 25 Mar 2012 10:35:30 +0000
Subject: [PATCH] IDE: close compile progress on restart

git-svn-id: trunk@36308 -
---
 ide/main.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index 0f02dc9af8..1b486e2b4e 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -12272,7 +12272,7 @@ const
       end;
       //DebugLn('Setting CommandLine');
       CmdLine := ExeName +
-         ' --lazarus-pid='+IntToStr(GetProcessID) + ' '                                                   +
+         ' --lazarus-pid='+IntToStr(GetProcessID) + ' '+
          GetCommandLineParameters(Params, False);
 
       DebugLn('CommandLine 1 : %s', [CmdLine]);
@@ -12293,6 +12293,7 @@ const
 var CanClose: boolean;
 begin
   DebugLn(['TMainIDE.DoRestart ']);
+  CompileProgress.Close;
   CanClose:=true;
   MainIDEBar.OnCloseQuery(Self, CanClose);
   if not CanClose then exit;
@@ -12581,7 +12582,6 @@ begin
       and (BuildLazProfiles.Current.TargetDirectory='')
       and MainBuildBoss.BuildTargetIDEIsDefault
       then begin
-        CompileProgress.Close;
         mnuRestartClicked(nil);
       end
     end