summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-02-16 12:55:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-02-16 12:55:27 +0000
commit930151d12dee91d423ca0b3e48b0279387c7f465 (patch)
tree7bb223bd3982bcb181a5282905a31912ca36644c /perl-install/standalone
parentf5f983e249aced65234a012ea1af09482f5dd8d7 (diff)
downloaddrakx-930151d12dee91d423ca0b3e48b0279387c7f465.tar
drakx-930151d12dee91d423ca0b3e48b0279387c7f465.tar.gz
drakx-930151d12dee91d423ca0b3e48b0279387c7f465.tar.bz2
drakx-930151d12dee91d423ca0b3e48b0279387c7f465.tar.xz
drakx-930151d12dee91d423ca0b3e48b0279387c7f465.zip
better display of keyboard layouts by using a tree (rationale: big
pull-down menu is slow to browse)
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/keyboarddrake2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake
index 01de6bf50..77a15ade2 100755
--- a/perl-install/standalone/keyboarddrake
+++ b/perl-install/standalone/keyboarddrake
@@ -21,6 +21,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) {
$in = 'interactive'->vnew('su');
my ($xkb_models, $model2text) = keyboard::xkb_models();
+ $_ =~ s/ /|/ foreach values %$model2text;
$keyboard->{XkbModel} ||= 'pc105';
choose:
@@ -33,6 +34,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) {
},
{ val => \$keyboard->{XkbModel},
format => sub { $model2text->{$_[0]} },
+ separator => '|',
list => $xkb_models },
]) or goto end;