From 325fda06def5d4eba208dd4efca51da58d6a9a13 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 5 Apr 2010 20:13:59 +0000
Subject: [PATCH] IDE: confirm changes of installed packages: list changes at
 start

git-svn-id: trunk@24449 -
---
 packager/pkgmanager.pas | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

diff --git a/packager/pkgmanager.pas b/packager/pkgmanager.pas
index d1a8e1f6c2..c65e23a782 100644
--- a/packager/pkgmanager.pas
+++ b/packager/pkgmanager.pas
@@ -410,14 +410,11 @@ procedure TPkgManager.MainIDEitmPkgEditInstallPkgsClick(Sender: TObject);
       s:=CurDependency.AsString;
       OldDependency:=FindDependencyByNameInList(OldDependencyList,pdlRequires,
                                                 CurDependency.PackageName);
-      if OldDependency<>nil then begin
-        // stay installed
-        if CurDependency.AsString<>OldDependency.AsString then
-          s:=s+'|'+lisKeep+'|'+OldDependency.AsString;
-      end else
+      if OldDependency=nil then begin
         // newly installed
         s:=s+'|'+lisNew;
-      Report.Add(s);
+        Report.Add(s);
+      end;
       CurDependency:=CurDependency.NextRequiresDependency;
     end;
 
@@ -431,6 +428,21 @@ procedure TPkgManager.MainIDEitmPkgEditInstallPkgsClick(Sender: TObject);
         Report.Add('|'+lisRemove+'|'+CurDependency.AsString);
       CurDependency:=CurDependency.NextRequiresDependency;
     end;
+
+    // list all packages, that are kept
+    CurDependency:=NewDependencyList;
+    while CurDependency<>nil do begin
+      s:=CurDependency.AsString;
+      OldDependency:=FindDependencyByNameInList(OldDependencyList,pdlRequires,
+                                                CurDependency.PackageName);
+      if OldDependency<>nil then begin
+        // stay installed
+        if CurDependency.AsString<>OldDependency.AsString then
+          s:=s+'|'+lisKeep+'|'+OldDependency.AsString;
+        Report.Add(s);
+      end;
+      CurDependency:=CurDependency.NextRequiresDependency;
+    end;
   end;
 
 var