From d64eaf5086b9c7ae752071ebdd1325cf50823b87 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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