From d64eaf5086b9c7ae752071ebdd1325cf50823b87 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 16 Aug 2005 05:35:18 +0000 Subject: fix "Mouse" button in summary doing nothing --- perl-install/install_steps_gtk.pm | 6 +++--- 1 file 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}; } } -- cgit v1.2.1