diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-07 14:54:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-07 14:54:45 +0000 |
| commit | 3a0ee190ff53ea2c8a6ded28662edc84258f3d10 (patch) | |
| tree | b4a449c8934939de94a81d7e7169ca12d2c3f199 /perl-install | |
| parent | 3fd97a31c99dd704c052ef5ffbedbb1ea84861e9 (diff) | |
| download | drakx-backup-do-not-use-3a0ee190ff53ea2c8a6ded28662edc84258f3d10.tar drakx-backup-do-not-use-3a0ee190ff53ea2c8a6ded28662edc84258f3d10.tar.gz drakx-backup-do-not-use-3a0ee190ff53ea2c8a6ded28662edc84258f3d10.tar.bz2 drakx-backup-do-not-use-3a0ee190ff53ea2c8a6ded28662edc84258f3d10.tar.xz drakx-backup-do-not-use-3a0ee190ff53ea2c8a6ded28662edc84258f3d10.zip | |
(selectLanguage, selectKeyboard): use ask_from_entries_refH instead of
ask_from_listf_, it enables the use of advanced
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 21 |
1 files changed, 11 insertions, 10 deletions
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 :-( |