diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-16 12:55:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-02-16 12:55:27 +0000 |
| commit | 930151d12dee91d423ca0b3e48b0279387c7f465 (patch) | |
| tree | 7bb223bd3982bcb181a5282905a31912ca36644c /perl-install/standalone | |
| parent | f5f983e249aced65234a012ea1af09482f5dd8d7 (diff) | |
| download | drakx-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-x | perl-install/standalone/keyboarddrake | 2 |
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; |