From b60b957d3a8821b7f1afb298e40809d58deb3c9c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 1 Aug 2002 21:25:55 +0000 Subject: - the old $o->{keyboard} is now $o->{keyboard}{KEYBOARD} - KBCHARSET is $o->{keyboard}{KBCHARSET} - isNotDelete is $o->{keyboard}{BACKSPACE} (as written in sysconfig/keyboard) - add GRP_TOGGLE which gives XkbOptions "grp:GRP_TOGGLE" - add dialog box to choose GRP_TOGGLE --- perl-install/install_steps.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index d1509224b..74a7bab16 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -93,9 +93,12 @@ sub selectLanguage { log::l("selectLanguage: pack_langs ", lang::pack_langs($o->{langs})); - if ($o->{keyboard_unsafe} || !$o->{keyboard}) { - $o->{keyboard_unsafe} = 1; + #- for auto_install compatibility with old $o->{keyboard} containing directly $o->{keyboard}{KEYBOARD} + $o->{keyboard} = { KEYBOARD => $o->{keyboard} } if $o->{keyboard} && !ref($o->{keyboard}); + + if (!$o->{keyboard} || $o->{keyboard}{unsafe}) { $o->{keyboard} = keyboard::from_usb() || keyboard::lang2keyboard($o->{lang}); + $o->{keyboard}{unsafe} = 1; keyboard::setup($o->{keyboard}) if !$::live; } @@ -109,10 +112,11 @@ sub selectLanguage { #------------------------------------------------------------------------------ sub selectKeyboard { my ($o) = @_; + $o->{keyboard}{KBCHARSET} = lang::lang2charset($o->{lang}); keyboard::setup($o->{keyboard}); addToBeDone { - keyboard::write($o->{prefix}, $o->{keyboard}, lang::lang2charset($o->{lang})); + keyboard::write($o->{keyboard}); } 'installPackages' unless $::g_auto_install; } #------------------------------------------------------------------------------ -- cgit v1.2.1