From c558a592a788ef9053da44d6b9f40b29c6e78a5e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 19 Jan 2005 17:56:15 +0000 Subject: use ->ask_from instead of ->ask_from_listf (keeping the same GUI behaviour) --- perl-install/standalone/keyboarddrake | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake index 10352b2b5..fbb46da7e 100755 --- a/perl-install/standalone/keyboarddrake +++ b/perl-install/standalone/keyboarddrake @@ -21,11 +21,13 @@ if (my ($kb) = grep { !/^-/ } @ARGV) { $in = 'interactive'->vnew('su'); choose: - $keyboard->{KEYBOARD} = $in->ask_from_listf(N("Keyboard"), - N("Please, choose your keyboard layout."), - sub { translate(keyboard::KEYBOARD2text($_[0])) }, - [ keyboard::KEYBOARDs() ], - $keyboard->{KEYBOARD}) or goto end; + $in->ask_from(N("Keyboard"), + N("Please, choose your keyboard layout."), + [ { val => \$keyboard->{KEYBOARD}, + format => sub { translate(keyboard::KEYBOARD2text($_[0])) }, + list => [ keyboard::KEYBOARDs() ], + type => 'list', + } ]) or goto end; keyboard::group_toggle_choose($in, $keyboard) or goto choose; } -- cgit v1.2.1