summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-09 14:56:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-09 14:56:02 +0000
commitcde9524eb3f6f188db66a7d35f7e3ee70dfeac2c (patch)
treebd52bc8728fb2c3877ea85643b309ac4edf248a8 /perl-install
parent427290403de19fed6255371c3603335b75bc47f8 (diff)
downloaddrakx-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.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();