diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index f8a1f58ad..7c72309a6 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -76,14 +76,14 @@ translated etc. that varies from language to language).") if $o->{lang} !~ /^en/ #------------------------------------------------------------------------------ sub selectKeyboard($) { my ($o, $clicked) = @_; - if (!$::beginner || $clicked) { - $o->{keyboard} = $o->ask_from_listf_(_("Keyboard"), - _("Please, choose your keyboard layout."), - \&keyboard::keyboard2text, - [ keyboard::xmodmaps() ], - $o->{keyboard}); - delete $o->{keyboard_unsafe}; - } + + $o->{keyboard} = $o->ask_from_listf_(_("Keyboard"), + _("Please, choose your keyboard layout."), + \&keyboard::keyboard2text, + [ keyboard::xmodmaps() ], + $o->{keyboard}); + delete $o->{keyboard_unsafe}; + if ($::expert && ref($o) !~ /newt/) { #- newt is buggy with big windows :-( my %langs; $langs{$_} = 1 foreach @{$o->{langs}}; $o->ask_many_from_list_ref('', |