show more fields for mice

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)) {