runnables, comp and run with args, only ask args if comp successful

This commit is contained in:
Basile Burg 2016-11-10 14:47:22 +01:00
parent e5551d4612
commit fce411e09d
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 1 additions and 3 deletions

View File

@ -2789,9 +2789,7 @@ var
begin
if fDoc.isNil then
exit;
if not InputQuery('Execution arguments', '', runargs) then
exit;
if compileRunnable(false) then
if compileRunnable(false) and InputQuery('Execution arguments', '', runargs) then
executeRunnable(false, true, runargs);
end;