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

libman, register from code.dlang, back to widget on success

This commit is contained in:
Basile Burg 2016-09-03 17:23:47 +02:00
parent 1cf1c8b287
commit f205b4d2ea
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_libmaneditor.pas
View File

@ -217,7 +217,7 @@ begin
cbb.Sorted:= true; cbb.Sorted:= true;
cbb.ShowHint:=true; cbb.ShowHint:=true;
cbb.OnSelect:= @updateHint; cbb.OnSelect:= @updateHint;
cbb.OnCloseUp:=@updateHint;; cbb.OnCloseUp:=@updateHint;
bsv := TSpeedButton.Create(self); bsv := TSpeedButton.Create(self);
bsv.Parent := self; bsv.Parent := self;
@ -445,11 +445,11 @@ begin
else else
dub.Parameters.Add('--version=' + ver); dub.Parameters.Add('--version=' + ver);
dub.Execute; dub.Execute;
while dub.Running do sleep(10);
err := dub.ExitStatus;
str := TStringList.Create; str := TStringList.Create;
try try
processOutputToStrings(dub, str); processOutputToStrings(dub, str);
while dub.Running do;
err := dub.ExitCode;
for msg in str do for msg in str do
itf.message(msg, nil, amcMisc, amkAuto); itf.message(msg, nil, amcMisc, amkAuto);
finally finally
@ -460,7 +460,7 @@ begin
end; end;
if err <> 0 then if err <> 0 then
begin begin
itf.message('error, failed to fetch or upgrade the repository', nil, amcMisc, amkErr); itf.message('error, failed to fetch the package', nil, amcMisc, amkErr);
exit; exit;
end; end;
@ -478,7 +478,7 @@ begin
if not dfn.fileExists or dfn.isEmpty then if not dfn.fileExists or dfn.isEmpty then
begin begin
itf.message('error, the DUB description is not found or it has not the JSON format', itf.message('error, the DUB description cannot be located or it has not the JSON format',
nil, amcMisc, amkErr); nil, amcMisc, amkErr);
exit; exit;
end; end;
@ -496,11 +496,11 @@ begin
dub.Parameters.Add('--compiler=' + DubCompilerFilename); dub.Parameters.Add('--compiler=' + DubCompilerFilename);
dub.CurrentDirectory:= pth; dub.CurrentDirectory:= pth;
dub.Execute; dub.Execute;
while dub.Running do sleep(10);
err := dub.ExitStatus;
str := TStringList.Create; str := TStringList.Create;
try try
processOutputToStrings(dub, str); processOutputToStrings(dub, str);
while dub.Running do ;
err := dub.ExitCode;
for msg in str do for msg in str do
itf.message(msg, nil, amcMisc, amkAuto); itf.message(msg, nil, amcMisc, amkAuto);
finally finally
@ -543,6 +543,7 @@ begin
prj.Free; prj.Free;
EntitiesConnector.endUpdate; EntitiesConnector.endUpdate;
end; end;
showWidget;
exit; exit;
end; end;
@ -567,6 +568,7 @@ begin
row.SubItems.Add(enableStr[true]); row.SubItems.Add(enableStr[true]);
row.Selected:=true; row.Selected:=true;
RowToLibrary(row); RowToLibrary(row);
showWidget;
end else end else
itf.message('warning, the package json description can not be found or the target is not a static library', itf.message('warning, the package json description can not be found or the target is not a static library',
nil, amcMisc, amkWarn); nil, amcMisc, amkWarn);