diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-30 12:17:19 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-30 12:17:19 +0000 |
commit | 4edd598855aab2f9cc29c30f3a83342aac384dfe (patch) | |
tree | e1db63fdbdc0859362e87d6e0585f0a306d70eaa /perl-install/Xconfig/default.pm | |
parent | 252887bbb4a9bdc2e5ecbb6e5aa760b387abe85d (diff) | |
download | drakx-backup-do-not-use-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar drakx-backup-do-not-use-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar.gz drakx-backup-do-not-use-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar.bz2 drakx-backup-do-not-use-4edd598855aab2f9cc29c30f3a83342aac384dfe.tar.xz drakx-backup-do-not-use-4edd598855aab2f9cc29c30f3a83342aac384dfe.zip |
most of the code of Xconfig::default::config_keyboard moved to keyboard::keyboard2full_xkb
Diffstat (limited to 'perl-install/Xconfig/default.pm')
-rw-r--r-- | perl-install/Xconfig/default.pm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/perl-install/Xconfig/default.pm b/perl-install/Xconfig/default.pm index e9e4abd35..e1cd2e1b8 100644 --- a/perl-install/Xconfig/default.pm +++ b/perl-install/Xconfig/default.pm @@ -37,20 +37,7 @@ sub config_mouse { sub config_keyboard { my ($raw_X, $keyboard) = @_; - - my $XkbLayout = keyboard::keyboard2xkb($keyboard); - - my $XkbModel = - arch() =~ /sparc/ ? 'sun' : - $XkbLayout eq 'jp' ? 'jp106' : - $XkbLayout eq 'br' ? 'abnt2' : 'pc105'; - - my $xkb = { $XkbLayout ? ( - XkbLayout => $XkbLayout, - XkbModel => $XkbModel, - if_($keyboard->{GRP_TOGGLE}, XkbOptions => "grp:$keyboard->{GRP_TOGGLE}"), - ) : (XkbDisable => undef) }; - $raw_X->set_keyboard($xkb); + $raw_X->set_keyboard(keyboard::keyboard2full_xkb($keyboard)); } 1; |