diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-27 22:16:23 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-27 22:16:23 +0000 |
commit | 1ebf6242bfbbe356cb8cb0e61395ba675afc0e75 (patch) | |
tree | f43d69dc38d85f727babd9ca7ec6bf52979aa5c8 /perl-install/install_steps_gtk.pm | |
parent | 1eb2d3f0fd5aedfa3780e5439366bc1e6e331e88 (diff) | |
download | drakx-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.pm | 7 |
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 = $_; |