diff options
author | Norbert Preining <preining@logic.at> | 2008-05-05 05:09:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-05 05:09:42 +0000 |
commit | 997021b6f04b72ee67e9272a17c5060ff9bc135b (patch) | |
tree | 90317dab039ff0c89f3fb42b844b52fa80ec892b /Master/tlpkg/installer | |
parent | f266635f6985382f8c0152a873023a260618bd57 (diff) |
support disabling/enabling os fsrc/doc files split and out adaption
of the installers wrt the options presented
git-svn-id: svn://tug.org/texlive/trunk@7854 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 20 | ||||
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 16 |
2 files changed, 24 insertions, 12 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index dfc7ad12ca5..835dd455b36 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -305,15 +305,19 @@ sub run_menu { $ffmt->Label(-width => $b, -anchor => 'w', -textvariable => \$fmtyesno)->pack(-side => 'left'); $ffmt->Button(-width => $c, -text => $text{'toggle'}, -command => sub { toggle_and_set_opt_variable(\$vars{'option_fmt'}, \$fmtyesno); })->pack(-side => 'left'); - my $fdoc = $fr->Frame; $fdoc->pack; - $fdoc->Label(-text => $labels{'optdoc'}, -width => $a, -anchor => 'w')->pack(-side => 'left'); - $fdoc->Label(-width => $b, -anchor => 'w', -textvariable => \$docyesno)->pack(-side => 'left'); - $fdoc->Button(-width => $c, -text => $text{'toggle'}, -command => sub { toggle_and_set_opt_variable(\$vars{'option_doc'}, \$docyesno); })->pack(-side => 'left'); + if ($vars{'doc_splitting_supported'}) { + my $fdoc = $fr->Frame; $fdoc->pack; + $fdoc->Label(-text => $labels{'optdoc'}, -width => $a, -anchor => 'w')->pack(-side => 'left'); + $fdoc->Label(-width => $b, -anchor => 'w', -textvariable => \$docyesno)->pack(-side => 'left'); + $fdoc->Button(-width => $c, -text => $text{'toggle'}, -command => sub { toggle_and_set_opt_variable(\$vars{'option_doc'}, \$docyesno); })->pack(-side => 'left'); + } - my $fsrc = $fr->Frame; $fsrc->pack; - $fsrc->Label(-text => $labels{'optsrc'}, -width => $a, -anchor => 'w')->pack(-side => 'left'); - $fsrc->Label(-width => $b, -anchor => 'w', -textvariable => \$srcyesno)->pack(-side => 'left'); - $fsrc->Button(-width => $c, -text => $text{'toggle'}, -command => sub { toggle_and_set_opt_variable(\$vars{'option_src'}, \$srcyesno); })->pack(-side => 'left'); + if ($vars{'src_splitting_supported'}) { + my $fsrc = $fr->Frame; $fsrc->pack; + $fsrc->Label(-text => $labels{'optsrc'}, -width => $a, -anchor => 'w')->pack(-side => 'left'); + $fsrc->Label(-width => $b, -anchor => 'w', -textvariable => \$srcyesno)->pack(-side => 'left'); + $fsrc->Button(-width => $c, -text => $text{'toggle'}, -command => sub { toggle_and_set_opt_variable(\$vars{'option_src'}, \$srcyesno); })->pack(-side => 'left'); + } if (unix()) { # Symlinks diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index cf68c36d430..47964a37b4c 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -627,10 +627,14 @@ sub options_menu { print <<"EOF"; <P> use letter size instead of A4 by default: $b_letter <F> create all format files: $b_fmt - <D> install font/macro doc tree: $b_doc - <S> install font/macro source tree: $b_src EOF ; + if ($vars{'doc_splitting_supported'}) { + print " <D> install font/macro doc tree: $b_doc\n"; + } + if ($vars{'src_splitting_supported'}) { + print " <S> install font/macro source tree: $b_src\n"; + } if (unix) { print <<"EOF"; <L> create symlinks in standard directories: $b_symlinks @@ -794,10 +798,14 @@ EOF print <<"EOF"; $b_letter use letter size instead of A4 by default $b_fmt create all format files - $b_doc install macro/font doc tree - $b_src install macro/font source tree EOF ; + if ($vars{'doc_splitting_supported'}) { + print " $b_doc install macro/font doc tree\n"; + } + if ($vars{'src_splitting_supported'}) { + print " $b_src install macro/font source tree\n"; + } print <<"EOF" if (unix); $b_symlinks create symlinks in standard directories EOF |