summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-27 22:16:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-27 22:16:23 +0000
commit1ebf6242bfbbe356cb8cb0e61395ba675afc0e75 (patch)
treef43d69dc38d85f727babd9ca7ec6bf52979aa5c8 /perl-install/install_steps_gtk.pm
parent1eb2d3f0fd5aedfa3780e5439366bc1e6e331e88 (diff)
downloaddrakx-backup-do-not-use-1ebf6242bfbbe356cb8cb0e61395ba675afc0e75.tar
drakx-backup-do-not-use-1ebf6242bfbbe356cb8cb0e61395ba675afc0e75.tar.gz
drakx-backup-do-not-use-1ebf6242bfbbe356cb8cb0e61395ba675afc0e75.tar.bz2
drakx-backup-do-not-use-1ebf6242bfbbe356cb8cb0e61395ba675afc0e75.tar.xz
drakx-backup-do-not-use-1ebf6242bfbbe356cb8cb0e61395ba675afc0e75.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index a9d4984d9..8df4840fb 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -165,6 +165,8 @@ sub selectInstallClass1 {
$w->main;
mapn { $verif->($_[1]) if $_[0]->active } \@radios, $l;
+ create_steps_window($o);
+
$w->{retval};
}
@@ -752,10 +754,7 @@ sub create_steps_window {
$reachableSteps{$_} = $b if $step->{reachable};
$b;
} grep {
- local $_ = $o->{steps}{$_}{hidden};
- /^$/ or $o->{installClass} and !/!expert/ || $::expert
- and !/beginner/ || !$::beginner
- and !/!corporate/ || $::corporate;
+ !eval $o->{steps}{$_}{hidden};
} @{$o->{orderedSteps}}),
0, gtkpack(new Gtk::HBox(0,0), map {
my $t = $_;