diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index fe5b05764..21ea3acd2 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -846,38 +846,37 @@ sub write_XF86Config { #- Write pointer section. my $pointer = sub { my ($O, $id) = @_; - print F qq(Section "Pointer"\n); + $id > 1 or print F qq(Section "Pointer"\n); print G qq(Section "InputDevice"\n\n); - print F qq( DeviceName "Mouse$id"\n); print G qq( Identifier "Mouse$id"\n); print G qq( Driver "mouse"\n); - print F qq( Protocol "$O->{XMOUSETYPE}"\n); + $id > 1 or print F qq( Protocol "$O->{XMOUSETYPE}"\n); print G qq( Option "Protocol" "$O->{XMOUSETYPE}"\n); - print F qq( Device "/dev/$O->{device}"\n); + $id > 1 or print F qq( Device "/dev/$O->{device}"\n); print G qq( Option "Device" "/dev/$O->{device}"\n); #- this will enable the "wheel" or "knob" functionality if the mouse supports it - print F " ZAxisMapping 4 5\n" if $O->{nbuttons} > 3; - print F " ZAxisMapping 6 7\n" if $O->{nbuttons} > 5; + $id > 1 or print F " ZAxisMapping 4 5\n" if $O->{nbuttons} > 3; + $id > 1 or print F " ZAxisMapping 6 7\n" if $O->{nbuttons} > 5; print G qq( Option "ZAxisMapping" "4 5"\n) if $O->{nbuttons} > 3; print G qq( Option "ZAxisMapping" "6 7"\n) if $O->{nbuttons} > 5; - print F "#" unless $O->{nbuttons} < 3; + $id > 1 or print F "#" unless $O->{nbuttons} < 3; print G "#" unless $O->{nbuttons} < 3; - print F qq( Emulate3Buttons\n); + $id > 1 or print F qq( Emulate3Buttons\n); print G qq( Option "Emulate3Buttons"\n); - print F "#" unless $O->{nbuttons} < 3; + $id > 1 or print F "#" unless $O->{nbuttons} < 3; print G "#" unless $O->{nbuttons} < 3; - print F qq( Emulate3Timeout 50\n\n); + $id > 1 or print F qq( Emulate3Timeout 50\n\n); print G qq( Option "Emulate3Timeout" "50"\n\n); - print F "# ChordMiddle is an option for some 3-button Logitech mice\n\n"; + $id > 1 or print F "# ChordMiddle is an option for some 3-button Logitech mice\n\n"; print G "# ChordMiddle is an option for some 3-button Logitech mice\n\n"; - print F "#" unless $O->{chordmiddle}; + $id > 1 or print F "#" unless $O->{chordmiddle}; print G "#" unless $O->{chordmiddle}; - print F qq( ChordMiddle\n\n); + $id > 1 or print F qq( ChordMiddle\n\n); print G qq( Option "ChordMiddle"\n\n); - print F " ClearDTR\n" if $O->{cleardtrrts}; - print F " ClearRTS\n\n" if $O->{cleardtrrts}; - print F "EndSection\n\n\n"; + $id > 1 or print F " ClearDTR\n" if $O->{cleardtrrts}; + $id > 1 or print F " ClearRTS\n\n" if $O->{cleardtrrts}; + $id > 1 or print F "EndSection\n\n\n"; print G "EndSection\n\n\n"; }; print F $pointersection_text; |