diff options
Diffstat (limited to 'lib/Xconfig/xfree.pm')
| -rw-r--r-- | lib/Xconfig/xfree.pm | 17 |
1 files changed, 0 insertions, 17 deletions
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 ######################################################################## |