mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-06 12:38:15 +02:00
Packager: Tweak AddPkgDependencyDialog.
git-svn-id: trunk@63986 -
This commit is contained in:
parent
a8297cc43b
commit
823660192e
@ -250,17 +250,17 @@ end;
|
||||
|
||||
procedure TAddPkgDependencyDialog.CloseButtonClick(Sender: TObject);
|
||||
// CloseButton is now "Install".
|
||||
var
|
||||
OpmRes: TModalResult;
|
||||
begin
|
||||
ModalResult := mrNone;
|
||||
OpmRes := InstallOnlinePackages;
|
||||
if OpmRes = mrCancel then Exit;
|
||||
UpdateAvailableDependencyNames;
|
||||
if OpmRes = mrRetry then // mrRetry means the IDE must be rebuilt.
|
||||
begin
|
||||
Self.Hide;
|
||||
MainIDEInterface.DoBuildLazarus([]);
|
||||
case InstallOnlinePackages of
|
||||
mrCancel: Exit;
|
||||
mrRetry: // mrRetry means the IDE must be rebuilt.
|
||||
begin
|
||||
Self.Hide;
|
||||
MainIDEInterface.DoBuildLazarus([]);
|
||||
end;
|
||||
else
|
||||
UpdateAvailableDependencyNames;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user