diff options
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 7f572914c..33577fe7f 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -416,7 +416,7 @@ sub ask_fromW { $w = Gtk2::Button->new(''); $w->signal_connect(clicked => sub { $get_all->(); - if ($::isWizard) { + if ($::isWizard && !$::isInstall) { $mainw->{rwindow}->set_sensitive(0); } else { $mainw->{rwindow}->hide; @@ -425,7 +425,7 @@ sub ask_fromW { $mainw->{retval} = $v; Gtk2->main_quit; } - if ($::isWizard) { + if ($::isWizard && !$::isInstall) { $mainw->{rwindow}->set_sensitive(1); } else { $mainw->{rwindow}->show; @@ -630,7 +630,7 @@ sub ask_fromW { gtkadd($mainw->{window}, $pack); $set_default_size->() if $has_scroll_always; $set_advanced->(0); - (@widgets ? $widgets[0]{focus_w} : $common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus(); + ($common->{focus_cancel} ? $mainw->{cancel} : $mainw->{ok})->grab_focus(); my $check = sub { my ($f) = @_; |