From 957635555f7759c52d996b65beb770df1c945c23 Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Tue, 22 Sep 2009 14:01:38 +0000 Subject: don't add keyboard sections to xorg.conf --- lib/Xconfig/xfree.pm | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'lib/Xconfig/xfree.pm') diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm index f03bc88..b248b7f 100644 --- a/lib/Xconfig/xfree.pm +++ b/lib/Xconfig/xfree.pm @@ -98,12 +98,6 @@ sub get_keyboard { my $raw_kbd = _raw_get_keyboard($raw_X) or die "no keyboard section"; raw_export_section($raw_kbd, \@keyboard_fields); } -sub set_keyboard { - my ($raw_X, $kbd) = @_; - my $raw_kbd = _raw_get_keyboard($raw_X) || _new_keyboard_section($raw_X); - raw_import_section($raw_kbd, $kbd); - _set_Option('keyboard', $raw_kbd, keys %$kbd); -} sub _raw_get_keyboard { my ($raw_X) = @_; first($raw_X->get_Sections('InputDevice', sub { @@ -112,17 +106,6 @@ sub _raw_get_keyboard { $Driver eq 'kbd' || $Driver eq 'evdev' && val($entry->{XkbLayout}); })); } -sub _new_keyboard_section { - my ($raw_X) = @_; - my $raw_kbd = { Identifier => { val => 'Keyboard1' }, Driver => { val => 'kbd' } }; - $raw_X->add_Section('InputDevice', $raw_kbd); - - my $layout = get_ServerLayout($raw_X)->{InputDevice} ||= []; - push @$layout, { val => '"Keyboard1" "CoreKeyboard"' }; - - $raw_kbd; -} - ################################################################################ # mouse ######################################################################## -- cgit v1.2.1