diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index b21870ab560..5384e94496f 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -737,26 +737,7 @@ sub menu_select_scheme { $vars{"$pkg"}=($vars{'selected_scheme'} eq $pkg)? 1:0; } } - # try to give a decent order of schemes, but be so general that - # if we change names of schemes nothing bad happnes (like forgetting one) - my %schemes_shown; - for my $s (@schemes) { $schemes_shown{$s} = 0 ; } - my @scheme_order; - # first try the size-name-schemes in decreasing order - for my $sn (qw/full medium small basic minimal/) { - if (defined($schemes_shown{"scheme-$sn"})) { - push @scheme_order, "scheme-$sn"; - $schemes_shown{"scheme-$sn"} = 1; - } - } - # now push all the other schemes if they are there and not already shown - for my $s (sort @schemes) { - if (defined($schemes_shown{$s}) && !$schemes_shown{$s}) { - push @scheme_order, $s; - } - } - # @schemes=sort @schemes; - # add the last one + my @scheme_order = schemes_ordered_for_presentation(); push @scheme_order, "scheme-custom"; my $selected = $vars{'selected_scheme'}; $sw->Label(-text => __("Selected scheme"))->pack(-padx => "2m", -pady => "2m"); |