summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog7
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/mouse.pm4
4 files changed, 12 insertions, 3 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 7a1d082c7..714758bd8 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,10 @@
+2000-02-16 Pixel <pixel@mandrakesoft.com>
+
+ * mouse.pm (detect): add defaults to serial mouse
+
+ * install_steps_gtk.pm (createXconf): remove the defaults to
+ serial mouse
+
2000-02-15 Pixel <pixel@mandrakesoft.com>
* diskdrake.pm: "After %s partition %s," inlined otherwise does
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index f02f65996..68846bcaa 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -595,7 +595,7 @@ sub main {
#- needed very early for install_steps_gtk
eval { ($o->{mouse}, $o->{wacom}) = mouse::detect() } unless $o->{nomouseprobe} || $o->{mouse};
-
+
$::o = $o = $::auto_install ?
install_steps_auto_install->new($o) :
$o->{interactive} eq "stdio" ?
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 0b8303954..cd08affd1 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -775,8 +775,6 @@ sub create_logo_window() {
#------------------------------------------------------------------------------
sub createXconf($$$) {
my ($file, $mouse_type, $mouse_dev, $wacom_dev) = @_;
- $mouse_type ||= "Microsoft";
- $mouse_dev = devices::make($mouse_dev || "ttyS0");
my $wacom;
if ($wacom_dev) {
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index cf21d68fb..0750efe0d 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -127,5 +127,9 @@ sub detect() {
do { $wacom or modules::unload("serial"); return name2mouse("USB Mouse"), $wacom } if !$@ && detect_devices::tryOpen("usbmouse");
modules::unload($c->[1], 'remove_alias');
}
+
+ #- defaults to generic ttyS0
+ add2hash(name2mouse("Generic Mouse (serial)"), { device => "ttyS0", unsafe => 1 });
+
die "mouseconfig failed";
}