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

fix, prevented infinite tool execution

This commit is contained in:
Basile Burg 2015-01-05 09:34:56 +01:00
parent ebb34743b8
commit 49cc7c0828
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_tools.pas
View File

@ -103,13 +103,23 @@ begin
end;
procedure TCEToolItem.setChainBefore(aValue: TStringList);
var
i: Integer;
begin
fChainBefore.Assign(aValue);
i := fChainBefore.IndexOf(fToolAlias);
if i <> -1 then
fChainBefore.Delete(i);
end;
procedure TCEToolItem.setChainAfter(aValue: TStringList);
var
i: Integer;
begin
fChainAfter.Assign(aValue);
i := fChainAfter.IndexOf(fToolAlias);
if i <> -1 then
fChainAfter.Delete(i);
end;
procedure TCEToolItem.execute;
@ -245,12 +255,14 @@ begin
for nme in aTool.chainBefore do
for chained in fTools do
if TCEToolItem(chained).toolAlias = nme then
if TCEToolItem(chained).toolAlias <> aTool.toolAlias then
TCEToolItem(chained).execute;
if exeInSysPath(aTool.executable) then
aTool.execute;
for nme in aTool.chainAfter do
for chained in fTools do
if TCEToolItem(chained).toolAlias = nme then
if TCEToolItem(chained).toolAlias <> aTool.toolAlias then
TCEToolItem(chained).execute;
end;