summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 2a568e935..5988d2091 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -593,16 +593,12 @@ sub ask_fromW {
}
};
- my $set_advanced_raw = sub {
- ($advanced) = @_;
- $advanced ? $advanced_pack->show : $advanced_pack->hide;
- };
my $first_time = 1;
my $set_advanced = sub {
($advanced) = @_;
$set_default_size->() if $advanced;
$update->($common->{callbacks}{advanced}) if $advanced && !$first_time;
- $set_advanced_raw->($advanced);
+ $advanced ? $advanced_pack->show : $advanced_pack->hide;
@widgets = (@widgets_always, if_($advanced, @widgets_advanced));
$mainw->sync; #- for $set_all below (mainly for the set of clist)
$first_time = 0;