From 8594b7a678c90d927d5bc7896bb995d3a150478c Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 15 Sep 2012 11:30:55 +0000
Subject: [PATCH] Packager: Update the available packages list after the parser
 thread stops. Issue #22886

git-svn-id: trunk@38667 -
---
 packager/installpkgsetdlg.pas | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/packager/installpkgsetdlg.pas b/packager/installpkgsetdlg.pas
index 390f8f1346..8ac706dc98 100644
--- a/packager/installpkgsetdlg.pas
+++ b/packager/installpkgsetdlg.pas
@@ -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;