summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 470f145b7..34787a591 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -186,9 +186,9 @@ press `F1' when booting on CDROM, then enter `text'."))) if availableRamMB() < 7
#------------------------------------------------------------------------------
sub selectMouse {
- my ($o) = @_;
+ my ($o, $force) = @_;
my %old = %{$o->{mouse}};
- $o->SUPER::selectMouse or return;
+ $o->SUPER::selectMouse($force) or return;
my $mouse = $o->{mouse};
$mouse->{type} eq 'none' ||
$old{type} eq $mouse->{type} &&
@@ -200,7 +200,7 @@ sub selectMouse {
mouse::test_mouse_install($mouse, $x_protocol_changed) and return;
%old = %$mouse;
- $o->SUPER::selectMouse(1);
+ $o->SUPER::selectMouse;
$mouse = $o->{mouse};
}
}