diff options
| -rw-r--r-- | perl-install/Xconfig/xfree.pm | 35 |
1 files changed, 20 insertions, 15 deletions
diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm index 151521f70..f9c15765f 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -239,23 +239,28 @@ sub set_synaptics { my $synaptics_mouse = $_; my $identifier = "SynapticsMouse" . ($::i + 1); my $pointer_type = $synaptics_mouse->{Primary} ? "CorePointer" : "AlwaysCore"; + my $opt = sub { + my ($name, $value) = @_; + ($name => { val => $value, Option => 1 }); + }; my $h = { Identifier => { val => $identifier }, Driver => { val => "synaptics" }, - Device => { val => $synaptics_mouse->{Device}, Option => 1 }, - Protocol => { val => $synaptics_mouse->{Protocol}, Option => 1 }, - LeftEdge => { val => 1700, Option => 1 }, - RightEdge => { val => 5300, Option => 1 }, - TopEdge => { val => 1700, Option => 1 }, - BottomEdge => { val => 4200, Option => 1 }, - FingerLow => { val => 25, Option => 1 }, - FingerHigh => { val => 30, Option => 1 }, - MaxTapTime => { val => 180, Option => 1 }, - MaxTapMove => { val => 220, Option => 1 }, - VertScrollDelta => { val => 100, Option => 1 }, - MinSpeed => { val => '0.06', Option => 1 }, - MaxSpeed => { val => '0.12', Option => 1 }, - AccelFactor => { val => '0.0010', Option => 1 }, - SHMConfig => { val => "on", Option => 1 }, + #- from /usr/share/doc/synaptics-0.14.0/INSTALL + $opt->("Device", $synaptics_mouse->{Device}), + $opt->("Protocol", $synaptics_mouse->{Protocol}), + $opt->("LeftEdge", 1700), + $opt->("RightEdge", 5300), + $opt->("TopEdge", 1700), + $opt->("BottomEdge", 4200), + $opt->("FingerLow", 25), + $opt->("FingerHigh", 30), + $opt->("MaxTapTime", 180), + $opt->("MaxTapMove", 220), + $opt->("VertScrollDelta", 100), + $opt->("MinSpeed", '0.06'), + $opt->("MaxSpeed", '0.12'), + $opt->("AccelFactor", '0.0010'), + $opt->("SHMConfig", "on"), }; $raw_X->add_Section('InputDevice', $h); push @$layout, { val => qq("$identifier" "$pointer_type") }; |