From 5889f2608f4b2c482c43a9723e6a941f6a41775b Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 30 Aug 2001 15:25:55 +0000 Subject: make sure --auto is not interactive on some part. use default value for port device if a serial mouse. --- perl-install/standalone/mousedrake | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) (limited to 'perl-install/standalone/mousedrake') 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); -- cgit v1.2.1