fix, useless project double update

This commit is contained in:
Basile Burg 2015-05-09 08:40:51 +02:00
parent 2442892fec
commit 722ef18563
1 changed files with 2 additions and 0 deletions

View File

@ -298,11 +298,13 @@ begin
//
nme := '';
beginImperativeUpdate;
fProj.beginUpdate;
src := fProj.currentConfiguration;
trg := fProj.addConfiguration;
trg.assign(src);
if InputQuery('Configuration name', '', nme) then trg.name := nme;
fProj.ConfigurationIndex := trg.Index;
fProj.endUpdate;
endImperativeUpdate;
end;