diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2001-12-17 17:58:20 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2001-12-17 17:58:20 +0000 |
| commit | 39e245aba1359c916866258fd7eeb96a280cc617 (patch) | |
| tree | cf9be1910e01f124cee911b68809af8ae764796f /perl-install/interactive_gtk.pm | |
| parent | b05606e95dd537bd56a936062baff49a2ac00f4d (diff) | |
| download | drakx-backup-do-not-use-39e245aba1359c916866258fd7eeb96a280cc617.tar drakx-backup-do-not-use-39e245aba1359c916866258fd7eeb96a280cc617.tar.gz drakx-backup-do-not-use-39e245aba1359c916866258fd7eeb96a280cc617.tar.bz2 drakx-backup-do-not-use-39e245aba1359c916866258fd7eeb96a280cc617.tar.xz drakx-backup-do-not-use-39e245aba1359c916866258fd7eeb96a280cc617.zip | |
drakgw for gold
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 44923d996..f2a26a82d 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -404,12 +404,20 @@ sub ask_fromW { $w = Gtk::Button->new(''); $w->signal_connect(clicked => sub { $get_all->(); - $mainw->{rwindow}->hide; + if ($::isWizard) { + $mainw->{rwindow}->set_sensitive(0); + } else { + $mainw->{rwindow}->hide; + } if (my $v = $e->{clicked_may_quit}()) { $mainw->{retval} = $v; Gtk->main_quit; } - $mainw->{rwindow}->show; + if ($::isWizard) { + $mainw->{rwindow}->set_sensitive(1); + } else { + $mainw->{rwindow}->show; + } $set_all->(); }); $set = sub { $w->child->set(may_apply($e->{format}, $_[0])) }; |