summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 1 insertions, 3 deletions
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();