summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/mousedrake
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-08-30 15:25:55 +0000
committerFrancois Pons <fpons@mandriva.com>2001-08-30 15:25:55 +0000
commit5889f2608f4b2c482c43a9723e6a941f6a41775b (patch)
tree341207b6be6c5e7d1266612f805ac1fa01f00a24 /perl-install/standalone/mousedrake
parent72810b5b86c49a2bb6bd8c37030494a38261407c (diff)
downloaddrakx-5889f2608f4b2c482c43a9723e6a941f6a41775b.tar
drakx-5889f2608f4b2c482c43a9723e6a941f6a41775b.tar.gz
drakx-5889f2608f4b2c482c43a9723e6a941f6a41775b.tar.bz2
drakx-5889f2608f4b2c482c43a9723e6a941f6a41775b.tar.xz
drakx-5889f2608f4b2c482c43a9723e6a941f6a41775b.zip
make sure --auto is not interactive on some part.
use default value for port device if a serial mouse.
Diffstat (limited to 'perl-install/standalone/mousedrake')
-rwxr-xr-xperl-install/standalone/mousedrake16
1 files changed, 9 insertions, 7 deletions
diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake
index 46c577b9f..be8ec2851 100755
--- a/perl-install/standalone/mousedrake
+++ b/perl-install/standalone/mousedrake
@@ -57,14 +57,16 @@ if (!$mouse || !$::auto) {
my ($c) = grep { $_->{driver} =~ /usb-[ou]hci/ } detect_devices::pci_probe(0) or die _("no serial_usb found\n");
eval { modules::load($c->{driver}, "serial_usb") };
}
-}
-$mouse->{XEMU3} = 'yes' if $mouse->{nbuttons} < 3 && (!$::noauto || $in->ask_yesorno('', _("Emulate third button?"), 1));
-$mouse->{device} =
- $in->ask_from_listf(_("Mouse Port"),
- _("Please choose on which serial port your mouse is connected to."),
- \&mouse::serial_port2text,
- [ mouse::serial_ports ]) || goto begin if $mouse->{type} eq 'serial';
+ $mouse->{XEMU3} = 'yes' if $mouse->{nbuttons} < 3 && (!$::noauto || $in->ask_yesorno('', _("Emulate third button?"), 1));
+
+ $mouse->{device} = $in->ask_from_listf(_("Mouse Port"),
+ _("Please choose on which serial port your mouse is connected to."),
+ \&mouse::serial_port2text,
+ [ mouse::serial_ports ],
+ $mouse->{device},
+ ) || goto begin if $mouse->{type} eq 'serial';
+}
#test_mouse($mouse) if $::isEmbedded;
mouse::write_conf($mouse);