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

libman editor, dub, allow to re-fetch without explicit removal of an item

This commit is contained in:
Basile Burg 2016-04-14 22:48:04 +02:00
parent 521d1e920f
commit d9bb30f2f5
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_libmaneditor.pas
View File

@ -294,15 +294,16 @@ var
idx: integer;
prj: TCEDubProject;
upd: boolean = false;
row: TListItem;
ovw: boolean = false;
row: TListItem = nil;
begin
if TDubPackageQueryForm.showAndWait(nme) <> mrOk then
exit;
if List.Items.FindCaption(0, nme, false, false, false).isNotNil then
begin
dlgOkInfo(format('a library item with the alias "%s" already exists, delete it before trying again.',
[nme]));
exit;
if dlgYesNo(format('a library item with the alias "%s" already exists, do you wish to update it ?',
[nme])) <> mrYes then exit
else ovw := true;
end;
{$IFDEF WINDOWS}
pth := GetEnvironmentVariable('APPDATA') + '\dub\packages\' + nme + '-master';
@ -362,6 +363,7 @@ begin
dub.Options:= [poUsePipes, poStderrToOutPut];
dub.Parameters.Add('build');
dub.Parameters.Add('--build=release');
dub.Parameters.Add('--force');
dub.CurrentDirectory:= pth;
dub.Execute;
while dub.Running do sleep(10);
@ -397,7 +399,10 @@ begin
try
for idx := 0 to prj.sourcesCount-1 do
str.Add(prj.sourceAbsolute(idx));
row := List.Items.Add;
if ovw then
row := List.FindCaption(0, nme, true, true, true);
if row.isNil then
row := List.Items.Add;
row.Data := LibMan.libraries.Add;
row.Caption := nme;
row.SubItems.Add(prj.outputFilename);