From 930151d12dee91d423ca0b3e48b0279387c7f465 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 16 Feb 2005 12:55:27 +0000 Subject: better display of keyboard layouts by using a tree (rationale: big pull-down menu is slow to browse) --- perl-install/standalone/keyboarddrake | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/standalone/keyboarddrake') 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; -- cgit v1.2.1