diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-02-09 14:56:02 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-02-09 14:56:02 +0000 |
| commit | cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c (patch) | |
| tree | bd52bc8728fb2c3877ea85643b309ac4edf248a8 /perl-install | |
| parent | 427290403de19fed6255371c3603335b75bc47f8 (diff) | |
| download | drakx-cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c.tar drakx-cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c.tar.gz drakx-cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c.tar.bz2 drakx-cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c.tar.xz drakx-cde9524eb3f6f188db66a7d35f7e3ee70dfeac2c.zip | |
use modal windows during install
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 4 |
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(); |