From 30a1ab53da96801eb89f3632cc5b8e4951a1b73c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Aur=C3=A9lien=20Lefebvre?= <alefebvre@mandriva.com>
Date: Mon, 17 Aug 2009 13:12:08 +0000
Subject: - added the ability to add up/down buttons in add_modify_remove list 
  of interactive - drakboot :   o user is now able to re-order bootloader
 entries

---
 perl-install/NEWS               |  4 ++++
 perl-install/any.pm             | 22 +++++++++++++++++++++-
 perl-install/install/NEWS       |  4 ++++
 perl-install/interactive/gtk.pm |  7 ++++++-
 4 files changed, 35 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 4d9c32674..cf1c3f561 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,7 @@
+- added the ability to add up/down buttons in add_modify_remove list 
+  of interactive
+- drakboot :
+  o user is now able to re-order bootloader entries
 - diskdrake
   o never pass username/password as options with davfs2 
   o store credentials in davfs2 secret file before mounting
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 595c2af9e..70a112ec3 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -597,6 +597,26 @@ sub setupBootloader__entries {
 	1;
     };
 
+    my $Up = sub {
+	my ($e) = @_;
+	my @entries = @{$b->{entries}};
+	my ($index) = grep { $entries[$_]->{label} eq $e->{label} } 0..$#entries;
+	if ($index > 0) {
+	  (@{$b->{entries}}->[$index - 1], @{$b->{entries}}->[$index]) = (@{$b->{entries}}->[$index], @{$b->{entries}}->[$index - 1]);
+	}
+	1;
+    };
+    
+    my $Down = sub {
+	my ($e) = @_;
+	my @entries = @{$b->{entries}};
+	my ($index) = grep { $entries[$_]->{label} eq $e->{label} } 0..$#entries;
+	if ($index < $#entries) {
+	  (@{$b->{entries}}->[$index + 1], @{$b->{entries}}->[$index]) = (@{$b->{entries}}->[$index], @{$b->{entries}}->[$index + 1]);
+	}
+	1;
+    };
+
     my @prev_entries = @{$b->{entries}};
     if ($in->ask_from__add_modify_remove(N("Bootloader Configuration"),
 N("Here are the entries on your boot menu so far.
@@ -607,7 +627,7 @@ You can create additional entries or change the existing ones."), [ {
 	      ($b->{default} eq $e->{label} ? "  *  " : "     ") . "$e->{label} ($e->{kernel_or_dev})" : 
 		translate($e);
 	}, list => $b->{entries},
-    } ], Add => $Add, Modify => $Modify, Remove => $Remove)) {
+    } ], Add => $Add, Modify => $Modify, Remove => $Remove, Up => $Up, Down => $Down)) {
 	1;
     } else {
 	@{$b->{entries}} = @prev_entries;
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 870911820..4b2938f6e 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,7 @@
+- added the ability to add up/down buttons in add_modify_remove list 
+  of interactive
+- drakboot :
+  o user is now able to re-order bootloader entries
 - 2010.1 logo
 - adduserdrake
   o now use password weakness display
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index e6ad4aaff..e48933dbe 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -450,9 +450,14 @@ sub create_widget {
 	$e->{formatted_list} = [ map { may_apply($e->{format}, $_) } @{$e->{list}} ];
 
 	if (my $actions = $e->{add_modify_remove}) {
+	    my @buttons = ( N_("Add"), N_("Modify"), N_("Remove"));
+	    # Add Up/Down buttons if their actions are defined
+	    foreach (qw(Up Down)) {
+	        push @buttons, N_($_) if ($actions->{$_});
+	    }
 	    my @buttons = map {
 		{ kind => lc $_, action => $actions->{$_}, button => Gtk2::Button->new(translate($_)) };
-	    } N_("Add"), N_("Modify"), N_("Remove");
+	    } @buttons;
 	    my $modify = find { $_->{kind} eq 'modify' } @buttons;
 
 	    my $do_action = sub {
-- 
cgit v1.2.1