From 63cfb5f3e5bf9601fa45797c93f43e46ea79ceed Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 21 Mar 2013 22:58:00 +0000
Subject: [PATCH] IDE: package graph: fixed icons for uninstall packages

git-svn-id: trunk@40613 -
---
 ide/lazarusidestrconsts.pas   | 2 +-
 packager/pkggraphexplorer.pas | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index c5003afce4..30afb064b5 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -4312,7 +4312,7 @@ resourcestring
   lisPckExplAutoCreated = 'AutoCreated';
   lisPckExplInstalled = 'Installed';
   lisPckExplInstallOnNextStart = 'Install on next start';
-  lisPckExplUninstallOnNextStart = 'Uninstall on next start';
+  lisPckExplUninstallOnNextStart = 'Uninstall on next start (unless needed by an installed package)';
   lisPckExplBase = 'Base, can not be uninstalled';
 
   // project inspector
diff --git a/packager/pkggraphexplorer.pas b/packager/pkggraphexplorer.pas
index bf27504792..cca4ccb3ce 100644
--- a/packager/pkggraphexplorer.pas
+++ b/packager/pkggraphexplorer.pas
@@ -190,11 +190,11 @@ begin
     if Pkg.AutoInstall<>pitNope then begin
       Result:=ImgIndexInstalledPackage;
     end else begin
-      Result:=ImgIndexInstallPackage;
+      Result:=ImgIndexUninstallPackage;
     end;
   end else begin
     if Pkg.AutoInstall<>pitNope then begin
-      Result:=ImgIndexUninstallPackage;
+      Result:=ImgIndexInstallPackage;
     end else begin
       Result:=ImgIndexPackage;
     end;