From 0976d0441bee25d06260dad7b520173063e194ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 18 Sep 1999 21:41:07 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 38 +++++++++++++++++++++++--------
 1 file changed, 28 insertions(+), 10 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a742dc26d..d9800bdea 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -18,6 +18,7 @@ use install_any;
 use detect_devices;
 use timezone;
 use network;
+use mouse;
 use modules;
 use lang;
 use pkgs;
@@ -87,7 +88,26 @@ sub selectInstallClass($@) {
 }
 
 #------------------------------------------------------------------------------
-sub setupSCSI { setup_thiskind($_[0], 'scsi', $_[1]) }
+sub selectMouse {
+    my ($o, $force) = @_;
+
+    my $name = $o->{mouse}{FULLNAME};
+    if (!$name || $::expert || $force) {
+	$name = $o->ask_from_list_('', _("Which mouse do you have"), [ mouse::names() ], $name);
+	$o->{mouse} = mouse::name2mouse($name);
+    }
+    my $b = $o->{mouse}{nbuttons} < 3;
+    $o->{mouse}{XEMU3} = 'yes' if $::expert && $o->ask_yesorno('', _("Emulate third button"), $b) || $b;
+
+    $o->{mouse}{device} = mouse::serial_ports_names2dev(
+	$o->ask_from_list(_("Mouse Port"),
+			  _("Which serial port is your mouse connected to?"),
+			  [ mouse::serial_ports_names() ])) if $o->{mouse}{device} eq "ttyS";
+
+    $o->SUPER::selectMouse;
+}
+#------------------------------------------------------------------------------
+sub setupSCSI { setup_thiskind($_[0], 'scsi', $_[1], $_[2]) }
 #------------------------------------------------------------------------------
 sub rebootNeeded($) {
     my ($o) = @_;
@@ -124,9 +144,6 @@ sub setPackages {
     $o->SUPER::setPackages($install_classes);
 }
 
-#------------------------------------------------------------------------------
-#-mouse
-
 #------------------------------------------------------------------------------
 sub configureNetwork($) {
     my ($o, $first_time) = @_;
@@ -617,7 +634,7 @@ sub load_thiskind {
 #------------------------------------------------------------------------------
 sub setup_thiskind {
     my ($o, $type, $auto, $at_least_one) = @_;
-    my @l = $o->load_thiskind($type);
+    my @l = $o->load_thiskind($type) unless $::expert && $o->ask_yesorno('', "Skip $type pci probe", 0);
     return if $auto && (@l || !$at_least_one);
     while (1) {
 	my $msg = @l ?
@@ -627,14 +644,15 @@ sub setup_thiskind {
 	    
 	my $opt = [ __("Yes"), __("No") ];
 	push @$opt, __("See hardware info") if $::expert;
-	my $r = $o->ask_from_list_('', $msg, $opt);
-	$r eq "No" and return;
-	if ($r eq "Yes") {
+	my $r = "Yes";
+	$r = $o->ask_from_list_('', $msg, $opt) unless $at_least_one && @l == 0;
+	if ($r eq "No") { return }
+	elsif ($r eq "Yes") {
 	    my @r = $o->loadModule($type) or return;
 	    push @l, \@r;
 	} else {
-	     $o->ask_warn('', [ pci_probing::main::list() ]);
-	 }
+	    $o->ask_warn('', [ pci_probing::main::list() ]);
+	}
     }
 }
 
-- 
cgit v1.2.1