From 03bb21af0e9c25e7bb5d8719f1231d265663a364 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 3 Feb 2002 19:18:42 +0000 Subject: force a few more "list"s instead of "combo" boxes --- perl-install/any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 471d0fbe0..6caeef9d7 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -158,7 +158,7 @@ sub setupBootloader { $b->{vga} ||= 'normal'; if (arch !~ /ppc/) { $in->ask_from('', _("Bootloader main options"), [ -{ label => _("Bootloader to use"), val => \$bootloader, list => [ keys(%bootloaders) ], format => \&translate }, +{ label => _("Bootloader to use"), val => \$bootloader, list => [ keys(%bootloaders) ], format => \&translate, type => 'list' }, arch() =~ /sparc/ ? ( { label => _("Bootloader installation"), val => \$silo_install_lang, list => \@silo_install_lang }, ) : if_(arch() !~ /ia64/, @@ -190,7 +190,7 @@ sub setupBootloader { } else { $b->{boot} = $partition_table_mac::bootstrap_part; $in->ask_from('', _("Bootloader main options"), [ - { label => _("Bootloader to use"), val => \$bootloader, list => [ keys(%bootloaders) ], format => \&translate }, + { label => _("Bootloader to use"), val => \$bootloader, list => [ keys(%bootloaders) ], format => \&translate, type => 'list' }, { label => _("Init Message"), val => \$b->{initmsg} }, { label => _("Boot device"), val => \$b->{boot}, list => [ map { "/dev/$_" } (map { $_->{device} } (grep { isAppleBootstrap($_) } @$fstab))], not_edit => !$::expert }, { label => _("Open Firmware Delay"), val => \$b->{delay} }, -- cgit v1.2.1