From 8ca860266ac5204d738cb5d87fcf055f86787ec0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Dec 2008 14:27:13 +0000 Subject: - keyboarddrake: o correctly handle default XkbModel (so that we do not force pc105 when we should not) (nb: this is not very important nowadays because XkbModel is deprecated with evdev, but hell, it's easy to fix :) --- tools/keyboarddrake | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'tools') diff --git a/tools/keyboarddrake b/tools/keyboarddrake index fb5d9be..d508018 100755 --- a/tools/keyboarddrake +++ b/tools/keyboarddrake @@ -26,7 +26,11 @@ if (my ($kb) = grep { !/^-/ } @ARGV) { my ($xkb_models, $model2text) = keyboard::xkb_models(); s/ /|/ foreach values %$model2text; - $keyboard->{XkbModel} ||= 'pc105'; + my $default_XkbModel; + if (!$keyboard->{XkbModel}) { + $default_XkbModel = 1; + $keyboard->{XkbModel} = keyboard::default_XkbModel($keyboard); + } choose: $in->ask_from(N("Keyboard"), @@ -38,6 +42,11 @@ if (my ($kb) = grep { !/^-/ } @ARGV) { format => sub { translate(keyboard::KEYBOARD2text($_[0])) }, list => [ keyboard::KEYBOARDs() ], type => 'list', + changed => sub { + if ($default_XkbModel) { + $keyboard->{XkbModel} = keyboard::default_XkbModel($keyboard); + } + }, }, { label => N("Keyboard type"), title => 1, @@ -45,6 +54,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) { { val => \$keyboard->{XkbModel}, format => sub { $model2text->{$_[0]} }, separator => '|', + changed => sub { $default_XkbModel = 0 }, list => $xkb_models }, ]) or goto end; -- cgit v1.2.1