diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 0cfe9c592cb..f876df16ddc 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -71,6 +71,7 @@ my $texmfsysvartext; my $texmfsysconfigtext; my $texmfhometext; my $texdirtext; +my $langcoltext; my $symlinktext; my $optletterstate; my $optfmtstate; @@ -144,7 +145,8 @@ my %text = ( title => 'TeX Live 2008 Installation', yes => 'Yes', no => 'No', notwritable => '(default not writable - please change!)', - changetexdir => '(please change TEXDIR first!)' + changetexdir => '(please change TEXDIR first!)', + nolangcol => '(no language col selected!)', ); @@ -263,7 +265,8 @@ sub run_menu { # lang collection line my $flang = $fr->Frame; $flang->pack; $flang->Label(-text => $labels{'langcoll'}, -width => $a, -anchor => 'w')->pack(-side => 'left'); - $flang->Label(-width => $b)->pack(-side => 'left'); + # $flang->Label(-width => $b)->pack(-side => 'left'); + $langcoltext = $flang->Label(-width => $b, -anchor => 'w')->pack(-side => 'left'); $flang->Button(-width => $c, -text => $text{'change'}, -command => sub { menu_select_lang_collections(); })->pack(-side => 'left'); $collectionstext = $fr->Label(); @@ -615,6 +618,13 @@ sub menu_set_collections_text { } sub menu_set_pathes_text { + if (check_on_lang_collection_installed()) { + # good + menu_set_text($langcoltext, ""); + } else { + # bad + menu_set_text($langcoltext, $text{'nolangcol'}, -foreground => "red"); + } if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) { menu_set_text($texdirtext, "$vars{'TEXDIR'}", -foreground => "black"); } else { |