summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-12 17:16:48 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-12 17:16:48 +0000
commit77165421b13e0b93315710198f23dcb7a62342ba (patch)
tree0245b24d4ee4e693af87ed1b4d259db0291d4c31 /perl-install
parentbe0d9de1a76910011ab288f6d5552f64b6160ede (diff)
downloaddrakx-77165421b13e0b93315710198f23dcb7a62342ba.tar
drakx-77165421b13e0b93315710198f23dcb7a62342ba.tar.gz
drakx-77165421b13e0b93315710198f23dcb7a62342ba.tar.bz2
drakx-77165421b13e0b93315710198f23dcb7a62342ba.tar.xz
drakx-77165421b13e0b93315710198f23dcb7a62342ba.zip
(set_advanced_raw) inline it in it's only caller
Diffstat (limited to 'perl-install')
-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;