From 1d27dbf5e28c61be9eeb078c44f2481fb25e7195 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 20 Feb 2001 01:09:07 +0000
Subject: major move. now ask_from_list returns false when canceled (it doesn't
 die 'ask_from_list canceled' anymore)

---
 perl-install/any.pm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2b65ca7c4..6ea56b645 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -101,7 +101,7 @@ sub setupBootloader {
 	if (arch() =~ /sparc/) {
 	    $b->{use_partition} = $in->ask_from_list_(_("SILO Installation"),
 						      _("Where do you want to install the bootloader?"),
-						      \@l, $l[$b->{use_partition}]);
+						      \@l, $l[$b->{use_partition}]) or return;
 	} else {
 	    my $boot = $hds->[0]{device};
 	    my $onmbr = "/dev/$boot" eq $b->{boot};
@@ -169,17 +169,21 @@ sub setupBootloader {
 
     while ($::expert || $more > 1) {
 	$in->set_help(arch() =~ /sparc/ ? 'setupSILOAddEntry' : 'setupBootloaderAddEntry') unless $::isStandalone;
-	my $c = $in->ask_from_listf([''], 
+	my $c;
+	$in->ask_from_entries_refH_powered( 
+		{
+		 messages => 
 _("Here are the different entries.
 You can add some more or change the existing ones."),
-		sub {
+		 ok => '',
+},
+		[ { val => \$c, format => sub {
 		    my ($e) = @_;
 		    ref $e ? 
 		      "$e->{label} ($e->{kernel_or_dev})" . ($b->{default} eq $e->{label} && "  *") : 
 		      translate($e);
-		},
-		[ @{$b->{entries}}, __("Add"), __("Done") ]);
-
+		}, list => [ @{$b->{entries}}, __("Add"), __("Done") ] } ]
+	);
 	$c eq "Done" and last;
 
 	my ($e);
@@ -553,7 +557,7 @@ sub setup_thiskind {
 	my $opt = [ __("Yes"), __("No") ];
 	push @$opt, __("See hardware info") if $::expert;
 	my $r = "Yes";
-	$r = $in->ask_from_list_('', $msg, $opt, "No") unless $at_least_one && @l == 0;
+	$r = $in->ask_from_list_('', $msg, $opt, "No") || die 'already displayed' unless $at_least_one && @l == 0;
 	if ($r eq "No") { return @l }
 	if ($r eq "Yes") {
 	    push @l, load_module($in, $type) || next;
-- 
cgit v1.2.1