From 597fbc897b288e62ddafaf38acf861bb8ff62f91 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 7 Jan 2001 16:53:29 +0000 Subject: update code for new ask_from_entries_refH which doesn't handle optional ok/cancel names in arg 1. must be handled via ask_from_entries_refH_powered --- perl-install/any.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 184642794..fe9d05282 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -217,13 +217,15 @@ arch() !~ /sparc/ ? ( { label => _("Default"), val => \$default, type => 'bool' }, ); - if ($in->ask_from_entries_refH($c eq "Add" ? '' : ['', _("Ok"), _("Remove entry")], - '', \@l, - complete => sub { - $e->{label} or $in->ask_warn('', _("Empty label not allowed")), return 1; - member($e->{label}, map { $_->{label} } grep { $_ != $e } @{$b->{entries}}) and $in->ask_warn('', _("This label is already used")), return 1; - 0; - })) { + if ($in->ask_from_entries_refH_powered( + { + if_($c ne "Add", cancel => _("Remove entry")), + callbacks => { + complete => sub { + $e->{label} or $in->ask_warn('', _("Empty label not allowed")), return 1; + member($e->{label}, map { $_->{label} } grep { $_ != $e } @{$b->{entries}}) and $in->ask_warn('', _("This label is already used")), return 1; + 0; + } } }, \@l)) { $b->{default} = $old_default || $default ? $default && $e->{label} : $b->{default}; $e->{vga} = $bootloader::vga_modes{$e->{vga}} || $e->{vga}; require bootloader; -- cgit v1.2.1