mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-13 02:49:06 +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);
|
procedure TAddPkgDependencyDialog.CloseButtonClick(Sender: TObject);
|
||||||
// CloseButton is now "Install".
|
// CloseButton is now "Install".
|
||||||
var
|
|
||||||
OpmRes: TModalResult;
|
|
||||||
begin
|
begin
|
||||||
ModalResult := mrNone;
|
ModalResult := mrNone;
|
||||||
OpmRes := InstallOnlinePackages;
|
case InstallOnlinePackages of
|
||||||
if OpmRes = mrCancel then Exit;
|
mrCancel: Exit;
|
||||||
UpdateAvailableDependencyNames;
|
mrRetry: // mrRetry means the IDE must be rebuilt.
|
||||||
if OpmRes = mrRetry then // mrRetry means the IDE must be rebuilt.
|
begin
|
||||||
begin
|
Self.Hide;
|
||||||
Self.Hide;
|
MainIDEInterface.DoBuildLazarus([]);
|
||||||
MainIDEInterface.DoBuildLazarus([]);
|
end;
|
||||||
|
else
|
||||||
|
UpdateAvailableDependencyNames;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user