forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix double message when tool terminated

This commit is contained in:
Basile Burg 2019-01-18 06:43:32 +01:00
parent de824376ff
commit b76cc3ce0e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/u_tools.pas
View File

@ -18,6 +18,7 @@ type
TToolItem = class(TCollectionItem)
private
fToolItems: TToolItems;
fTerminatedFlag: boolean;
fNextToolAlias: string;
fProcess: TDexedProcess;
fExecutable: TFilename;
@ -190,6 +191,7 @@ const
confSpec = 'Are you sure you want to execute the "%s" tool ?';
begin
u_processes.killProcess(fProcess);
fTerminatedFlag := false;
if fMsgs = nil then
fMsgs := getMessageDisplay;
@ -263,6 +265,9 @@ begin
end;
if (not fProcess.Running) then
begin
if fTerminatedFlag then
exit;
fTerminatedFlag := true;
if fProcess.ExitStatus <> 0 then
begin
fMsgs.message(format('error: the tool (%s) has returned the status %s',