diff options
author | Norbert Preining <preining@logic.at> | 2008-05-28 15:32:16 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-28 15:32:16 +0000 |
commit | f463b283de1a85177ff46c78a14b415c4fc47c39 (patch) | |
tree | dbd280e143a04f422f73b25333dc029f084560b3 /Master/tlpkg | |
parent | 3830b77c9141c060fd7e79f64f00b7481ddb9548 (diff) |
installer: do not install collection_wintools forcibly, but select it when
you select win32. But you can still deselect it afterwards
git-svn-id: svn://tug.org/texlive/trunk@8387 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 5 | ||||
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 452272c6667..2b72870873b 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -649,6 +649,11 @@ sub callback_select_collection { } sub callback_select_systems() { + if ($vars{"binary_win32"}) { + $vars{"collection-wintools"} = 1; + } else { + $vars{"collection-wintools"} = 0; + } calc_depends(); update_numbers(); menu_update_texts(); diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index c13490e91bf..b984b1a075a 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -147,6 +147,11 @@ sub binary_menu { toggle "$keyval{$keystroke}"; } } + if ($vars{"binary_win32"}) { + $vars{"collection-wintools"} = 1; + } else { + $vars{"collection-wintools"} = 0; + } if (defined $command{"\u$answer"}) { return $command{"\u$answer"}->(); } else { @@ -200,6 +205,11 @@ sub scheme_menu { } } } + if ($vars{"binary_win32"}) { + $vars{"collection-wintools"} = 1; + } else { + $vars{"collection-wintools"} = 0; + } other_options qw(R Q); my $answer=prompt 'Press key to select a scheme'; |