From e2cd603ed6f57da573b16bb9a0d1c446f1893c24 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Sep 2003 12:58:32 +0000 Subject: fix expert mode resulting in advanced setting being displayed by default but label still being "advanced" instead of "basic" --- perl-install/interactive/gtk.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'perl-install/interactive') 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} : -- cgit v1.2.1