summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake210
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index da65fc2d3..7aa972cbc 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -92,10 +92,15 @@ my %fields =
{
info => [ N("Disk identifier"), N("usually the disk serial number") ],
},
- MOUSE => {
+ MOUSE =>
+ {
+ "device" => [ N("Device file"), N("the device file used to communicate with the kernel driver for the mouse") ],
+ EMULATEWHEEL => [ N("Emulated wheel"), N("whether the wheel is emulated or not") ],
+ MOUSETYPE => [ N("Mouse type"), N("the type of the mouse") ],
name => [ N("Name"), N("the name of the mouse") ],
nbuttons => [ N("Number of buttons"), N("the number of buttons the mouse has") ],
type => [ N("Type"), N("the type of bus on which the mouse is connected") ],
+ XMOUSETYPE => [ N("Mouse protocol used by X11"), N("the protocol that the graphical desktop use with the mouse") ],
}
);
@@ -391,6 +396,7 @@ foreach (@classes) {
$hd->{extended_partitions} = @{$info->{extended}};
delete $hd->{extended_partitions} if $hd->{extended_partitions} eq '0';
}
+ $_->{EMULATEWHEEL} = bool2yesno($_->{EMULATEWHEEL}) if $Ident eq "MOUSE";
rename_field($_, 'usb_bus', 'bus');
rename_field($_, 'usb_driver', 'driver');
rename_field($_, 'usb_id', 'id');
@@ -399,7 +405,7 @@ foreach (@classes) {
rename_field($_, 'usb_vendor', 'vendor');
rename_field($_, 'vendor_name', 'Vendor');
- foreach my $i (qw(EMULATEWHEEL MOUSETYPE XMOUSETYPE auxmouse devfs_prefix unsafe val wacom)) { delete $_->{$i} };
+ foreach my $i (qw(auxmouse devfs_prefix unsafe val wacom)) { delete $_->{$i} };
my $custom_id = harddrake::data::custom_id($_, $title);
foreach my $field (qw(devfs_device device)) {