From b0579878b246a90d5352cf50a71ff417e13636ba Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 18 Sep 2006 08:45:02 +0000
Subject: if started as rpmdrake-remove, default to installed mode (#25551)

---
 rpmdrake | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/rpmdrake b/rpmdrake
index c31ff913..0aebca6c 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -96,6 +96,12 @@ unless ($MODE) {
     $0 =~ m|update$|i and $MODE = 'update';
 }
 
+my $default_list_mode;
+$default_list_mode = 'all' if $MODE eq 'install';
+if ($MODE eq 'remove') {
+    $default_list_mode = 'installed';
+}
+
 eval { 
     require mygtk2;
     require ugtk2;
@@ -727,7 +733,7 @@ sub run_treeview_dialog {
         $switch_pkg_list_mode->($mode);
     };
 
-    $pkgs_provider->({}, 'all'); # default mode
+    $pkgs_provider->({}, $default_list_mode); # default mode
 
     my ($options, $size_selected, $compssUsers, $tree, $tree_model, $detail_tree, $detail_tree_model, %elems);
     my (undef, $size_free) = MDK::Common::System::df('/usr');
-- 
cgit v1.2.1