paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 03:57:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Update the available packages list after the parser thread stops. Issue #22886

Browse Source 
git-svn-id: trunk@38667 -
This commit is contained in:
juha 2012-09-15 11:30:55 +00:00
parent e7c74ffd82
commit 8594b7a678
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/installpkgsetdlg.pas
View File

@ -227,7 +227,6 @@ begin
InstallPkgSetDialog:=TInstallPkgSetDialog.Create(nil);
try
InstallPkgSetDialog.OldInstalledPackages:=OldInstalledPackages;
// InstallPkgSetDialog.UpdateAvailablePackages;
InstallPkgSetDialog.UpdateButtonStates;
InstallPkgSetDialog.OnCheckInstallPackageList:=CheckInstallPackageList;
Result:=InstallPkgSetDialog.ShowModal;
@ -798,14 +797,12 @@ begin
end;
InstallTreeView.EndUpdate;
sl.Free;
UpdateAvailablePackages;
end;
procedure TInstallPkgSetDialog.PkgInfosChanged;
// called in mainthread after helper thread finished
// called in mainthread after package parser helper thread finished
begin
AvailableTreeView.Invalidate;
InstallTreeView.Invalidate;
UpdateAvailablePackages;
end;
procedure TInstallPkgSetDialog.ChangePkgVersion(PkgInfo: TIPSPkgInfo;
@ -1204,6 +1201,7 @@ begin
FNewInstalledPackages.Add(Additions[i]);
Additions.Clear;
UpdateNewInstalledPackages;
UpdateAvailablePackages;
UpdateButtonStates;
finally
// clean up
@ -1268,6 +1266,7 @@ begin
end;
UpdateNewInstalledPackages;
UpdateAvailablePackages;
UpdateButtonStates;
finally
OldPackageID.Free;