summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive_gtk.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2001-12-17 17:58:20 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2001-12-17 17:58:20 +0000
commit39e245aba1359c916866258fd7eeb96a280cc617 (patch)
treecf9be1910e01f124cee911b68809af8ae764796f /perl-install/interactive_gtk.pm
parentb05606e95dd537bd56a936062baff49a2ac00f4d (diff)
downloaddrakx-39e245aba1359c916866258fd7eeb96a280cc617.tar
drakx-39e245aba1359c916866258fd7eeb96a280cc617.tar.gz
drakx-39e245aba1359c916866258fd7eeb96a280cc617.tar.bz2
drakx-39e245aba1359c916866258fd7eeb96a280cc617.tar.xz
drakx-39e245aba1359c916866258fd7eeb96a280cc617.zip
drakgw for gold
Diffstat (limited to 'perl-install/interactive_gtk.pm')
-rw-r--r--perl-install/interactive_gtk.pm12
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])) };