summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 7b8b486c4..fa78bb364 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -653,6 +653,10 @@ sub ask_fromW {
my $message = $common->{interactive_help}->() or return;
$o->ask_warn(N("Help"), $message);
}, 1 ]);
+ if ($::isStandalone && $::expert) {
+ $common->{advanced_state} = 1;
+ $advanced_button->[0] = $common->{advanced_label_close};
+ }
my $buttons_pack = ($common->{ok} || !exists $common->{ok}) && $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @help, if_(@$l2, $advanced_button));
$pack->pack_start(gtkshow($always_pack), 1, 1, 0);
@@ -668,7 +672,6 @@ sub ask_fromW {
gtkadd($mainw->{window}, $pack);
$set_default_size->() if $has_scroll_always;
$set_advanced->($common->{advanced_state});
- $set_advanced_raw->($::expert) if $::isStandalone;
my $widget_to_focus =
$common->{focus_cancel} ? $mainw->{cancel} :