From 3a0ee190ff53ea2c8a6ded28662edc84258f3d10 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 7 Jan 2001 14:54:45 +0000
Subject: (selectLanguage, selectKeyboard): use ask_from_entries_refH instead
 of ask_from_listf_, it enables the use of advanced

---
 perl-install/install_steps_interactive.pm | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 768f6674d..2c3ec982a 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -50,11 +50,11 @@ sub kill_action {
 sub selectLanguage($) {
     my ($o) = @_;
 
-    $o->{lang} = $o->ask_from_listf("Language",
-				    _("Please, choose a language to use."),
-				    \&lang::lang2text,
-				    [ lang::list() ],
-				    $o->{lang});
+    $o->ask_from_entries_refH("Language",
+			      _("Please, choose a language to use."),
+			      [ { val => \$o->{lang}, type => 'list', 
+				  format => \&lang::lang2text, list => [ lang::list() ] } ]);
+
     install_steps::selectLanguage($o);
 
     $o->ask_warn('', 
@@ -151,11 +151,12 @@ For any question on this document, please contact MandrakeSoft S.A.
 sub selectKeyboard($) {
     my ($o, $clicked) = @_;
 
-    $o->{keyboard} = $o->ask_from_listf_(_("Keyboard"),
-					 _("Please, choose your keyboard layout."),
-					 \&keyboard::keyboard2text,
-					 [ keyboard::xmodmaps() ],
-					 $o->{keyboard});
+    $o->ask_from_entries_refH(
+			      _("Keyboard"),
+			      _("Please, choose your keyboard layout."),
+			      [ { val => \$o->{keyboard}, type => 'list',
+				  format => sub { translate(keyboard::keyboard2text($_[0])) },
+				  list => [ keyboard::xmodmaps() ] } ]);
     delete $o->{keyboard_unsafe};
 
     if ($::expert && ref($o) !~ /newt/) { #- newt is buggy with big windows :-(
-- 
cgit v1.2.1