summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-06 11:55:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-06 11:55:10 +0000
commit38c93685494c0ace5fce6ab92fb52176ed9cf872 (patch)
tree87a089f2dadeb54532d6c6ffa11ad4517f6287df /perl-install
parent769abbc0792c2e2daef05e22e4cfd6837eff9250 (diff)
downloaddrakx-38c93685494c0ace5fce6ab92fb52176ed9cf872.tar
drakx-38c93685494c0ace5fce6ab92fb52176ed9cf872.tar.gz
drakx-38c93685494c0ace5fce6ab92fb52176ed9cf872.tar.bz2
drakx-38c93685494c0ace5fce6ab92fb52176ed9cf872.tar.xz
drakx-38c93685494c0ace5fce6ab92fb52176ed9cf872.zip
make wacom config work
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/parse.pm3
-rw-r--r--perl-install/Xconfig/xfree3.pm2
-rw-r--r--perl-install/Xconfig/xfree4.pm11
-rw-r--r--perl-install/Xconfig/xfreeX.pm2
4 files changed, 11 insertions, 7 deletions
diff --git a/perl-install/Xconfig/parse.pm b/perl-install/Xconfig/parse.pm
index dbd8851ea..9f4b40bd5 100644
--- a/perl-install/Xconfig/parse.pm
+++ b/perl-install/Xconfig/parse.pm
@@ -137,6 +137,9 @@ my %kind_names = (
Display => [ qw(Depth Modes) ], # Subsection in Device
Screen => [ qw(Identifier Driver Device Monitor DefaultColorDepth) ],
InputDevice => [ qw(Identifier Driver Protocol Device Type Mode XkbModel XkbLayout XkbDisable Emulate3Buttons Emulate3Timeout) ],
+ WacomCursor => [ qw(Port) ], #-\
+ WacomStylus => [ qw(Port) ], #--> Port must be first
+ WacomEraser => [ qw(Port) ], #-/
ServerLayout => [ qw(Identifier) ],
);
my @want_string = qw(Identifier DeviceName VendorName ModelName BoardName Driver Device Chipset Monitor Protocol XkbModel XkbLayout XkbOptions Load BusID);
diff --git a/perl-install/Xconfig/xfree3.pm b/perl-install/Xconfig/xfree3.pm
index 106f14ed8..d3a258138 100644
--- a/perl-install/Xconfig/xfree3.pm
+++ b/perl-install/Xconfig/xfree3.pm
@@ -54,7 +54,7 @@ sub new_mouse_sections {
sub set_wacoms {
my ($raw_X, @wacoms) = @_;
- my %Modes = (Stylus => 'Absolute', Erasor => 'Absolute', Cursor => 'Relative');
+ my %Modes = (Stylus => 'Absolute', Eraser => 'Absolute', Cursor => 'Relative');
my $XInput = $raw_X->get_Section('XInput');
if ($XInput) {
diff --git a/perl-install/Xconfig/xfree4.pm b/perl-install/Xconfig/xfree4.pm
index 58c6cdad0..8ffa411e0 100644
--- a/perl-install/Xconfig/xfree4.pm
+++ b/perl-install/Xconfig/xfree4.pm
@@ -63,20 +63,21 @@ sub set_wacoms {
@wacoms or return;
- my %Modes = (Stylus => 'Absolute', Erasor => 'Absolute', Cursor => 'Relative');
+ my %Modes = (Stylus => 'Absolute', Eraser => 'Absolute', Cursor => 'Relative');
each_index {
- my ($wacom) = @_;
+ my $wacom = $_;
foreach (keys %Modes) {
- my $h = { Identifier => { val => $_ . ($::i + 1) },
+ my $identifier = $_ . ($::i + 1);
+ my $h = { Identifier => { val => $identifier },
Driver => { val => 'wacom' },
- Style => { val => lc $_, Option => 1 },
+ Type => { val => lc $_, Option => 1 },
Device => { val => $wacom->{Device}, Option => 1 },
Mode => { val => $Modes{$_}, Option => 1 },
if_($wacom->{USB}, USB => { Option => 1 })
};
$raw_X->add_Section('InputDevice', $h);
- push @$layout, { val => qq("$_$::i" "AlwaysCore") };
+ push @$layout, { val => qq("$identifier" "AlwaysCore") };
}
} @wacoms;
}
diff --git a/perl-install/Xconfig/xfreeX.pm b/perl-install/Xconfig/xfreeX.pm
index 6154cb547..0b593d939 100644
--- a/perl-install/Xconfig/xfreeX.pm
+++ b/perl-install/Xconfig/xfreeX.pm
@@ -258,7 +258,7 @@ sub raw_import_section {
sub add_Section {
my ($raw_X, $Section, $h) = @_;
- my @suggested_ordering = qw(Files ServerFlags Keyboard Pointer XInput InputDevice Module DRI Monitor Device Screen ServerLayout);
+ my @suggested_ordering = qw(Files ServerFlags Module DRI Keyboard Pointer XInput InputDevice Monitor Device Screen ServerLayout);
my %order = map_index { { lc($_) => $::i } } @suggested_ordering;
my $e = { name => $Section, l => $h };
my $added;