diff options
author | Olivier Blin <oblin@mandriva.org> | 2005-03-21 15:23:26 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2005-03-21 15:23:26 +0000 |
commit | 5e1bf84468c6f65d24c57ebb3bbaafcbed0e55c4 (patch) | |
tree | abff6aaa570032b1bc062d2c288e731905638c3d /perl-install/Xconfig | |
parent | b32c4a6739f0c1eeb1d28253c56f83bed5c63869 (diff) | |
download | drakx-backup-do-not-use-5e1bf84468c6f65d24c57ebb3bbaafcbed0e55c4.tar drakx-backup-do-not-use-5e1bf84468c6f65d24c57ebb3bbaafcbed0e55c4.tar.gz drakx-backup-do-not-use-5e1bf84468c6f65d24c57ebb3bbaafcbed0e55c4.tar.bz2 drakx-backup-do-not-use-5e1bf84468c6f65d24c57ebb3bbaafcbed0e55c4.tar.xz drakx-backup-do-not-use-5e1bf84468c6f65d24c57ebb3bbaafcbed0e55c4.zip |
factorize and minimal comments
Diffstat (limited to 'perl-install/Xconfig')
-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") }; |