diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-23 21:41:26 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-23 21:41:26 +0000 |
| commit | 02d83b6b5e31447deb2937619e09150aa52bdee8 (patch) | |
| tree | 2edcb6c08973f0add5e32ec31e822be526a76d16 /perl-install/interactive | |
| parent | 126aad60ee599b51ed23add3f8ddf89cf881edeb (diff) | |
| download | drakx-backup-do-not-use-02d83b6b5e31447deb2937619e09150aa52bdee8.tar drakx-backup-do-not-use-02d83b6b5e31447deb2937619e09150aa52bdee8.tar.gz drakx-backup-do-not-use-02d83b6b5e31447deb2937619e09150aa52bdee8.tar.bz2 drakx-backup-do-not-use-02d83b6b5e31447deb2937619e09150aa52bdee8.tar.xz drakx-backup-do-not-use-02d83b6b5e31447deb2937619e09150aa52bdee8.zip | |
- fix displaying "Advanced" instead of "Basic" in advanced_state by default
- cleanup
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index d29c2df9b..5d35da376 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -623,7 +623,10 @@ sub ask_fromW { $first_time = 0; $set_all->(); #- must be done when showing advanced lists (to center selected value) }; - my $advanced_button = [ $common->{advanced_label}, + if ($::expert && @$l2) { + $common->{advanced_state} = 1; + } + my $advanced_button = [ $common->{advanced_state} ? $common->{advanced_label_close} : $common->{advanced_label}, sub { my ($w) = @_; $set_advanced->(!$advanced); @@ -638,10 +641,6 @@ sub ask_fromW { }, 1 ]), if_($common->{more_buttons}, @{$common->{more_buttons}}), ); - if ($::expert && @$l2) { - $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}, '', @more_buttons, if_(@$l2, $advanced_button)); my @widgets_to_pack; |