From cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Feb 2004 14:56:02 +0000
Subject: use modal windows during install

---
 perl-install/install_steps_gtk.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index df9119703..caf15f3cd 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -138,6 +138,7 @@ sub new($$) {
     install_gtk::create_logo_window($o);
     install_gtk::create_steps_window($o);
 
+    $ugtk2::grab = 1;
     $ugtk2::force_center_at_pos = [ $::rootwidth - $::windowwidth, $::logoheight, $::windowwidth, $::windowheight ];
 
     $o = (bless {}, ref($type) || $type)->SUPER::new($o);
@@ -191,8 +192,6 @@ sub selectMouse {
       $old{name}   eq $mouse->{name}   &&
       $old{device} eq $mouse->{device} && !$force and return;
 
-    local $ugtk2::grab = 1; #- unsure a crazy mouse don't go wild clicking everywhere
-
     while (1) {
 	my $x_protocol_changed = mouse::change_mouse_live($mouse, \%old);
 	mouse::test_mouse_install($mouse, $x_protocol_changed) and return;
@@ -592,7 +591,6 @@ sub installPackages {
 
 	#- if not using a cdrom medium, always abort.
 	if ($method eq 'cdrom' && !$::oem) {
-	    local $ugtk2::grab = 1;
 	    my $name = pkgs::mediumDescr($o->{packages}, $medium);
 	    local $| = 1; print "\a";
 	    my $time = time();
-- 
cgit v1.2.1