diff options
author | Norbert Preining <preining@logic.at> | 2012-03-17 01:40:41 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2012-03-17 01:40:41 +0000 |
commit | a248a234963ec9fd6e3664bb066005338178f9c7 (patch) | |
tree | e0d0706d1278f02b17c76214797433bbb664e6fa /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | e27d7d6de12aaf0b37cf624941e5c62e65f116cc (diff) |
add installer option for adjusting the repository after installation
defaults to yes
asked only in text and pertk installer, not in wizard
git-svn-id: svn://tug.org/texlive/trunk@25668 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index b829c81b88e..dbcbbecf08c 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -40,6 +40,7 @@ our @collections_lang; our @collections_lang_doc; our $texlive_release; our @media_available; +our $media; our $MENU_INSTALL = 0; our $MENU_ABORT = 1; @@ -75,6 +76,7 @@ my $doc_files_toggle_button; my $src_files_toggle_button; my $texworks_toggle_button; my $load_remote_button; +my $adjustrepo_toggle_button; my $bintextbutton; my $schemebutton; my $tmflocalbutton; @@ -108,6 +110,7 @@ my $editoryesno; my $adminallyesno; my $docyesno; my $restrictedyesno; +my $adjustrepoyesno; $::run_menu = \&run_menu_perltk; @@ -128,6 +131,7 @@ sub setup_perltk_local_vars { $adminallyesno = ( $vars{'option_w32_multi_user'} ? __("Yes") : __("No") ); $docyesno = ( $vars{'option_doc'} ? __("Yes") : __("No") ); $restrictedyesno = ( $vars{'option_write18_restricted'} ? __("Yes") : __("No") ); + $adjustrepoyesno = ( $vars{'option_adjustrepo'} ? __("Yes") : __("No") ); } sub menu_abort { @@ -198,6 +202,7 @@ sub change_button_state { $paper_toggle_button->configure(-state => $what); $write_eighteen_toggle_button->configure(-state => $what); $format_toggle_button->configure(-state => $what); + $adjustrepo_toggle_button->configure(-state => $what); $pathbutton->configure(-state => $what); $doc_files_toggle_button->configure(-state => $what) if defined($doc_files_toggle_button); $src_files_toggle_button->configure(-state => $what) if defined($src_files_toggle_button); @@ -486,6 +491,12 @@ Please select a different mirror.', $TeXLive::TLConfig::ReleaseYear, $texlive_re $texworks_toggle_button = $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'collection-texworks'}, \$editoryesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); } } + if ($media ne 'NET') { + $row++; + $fr->Label(-text => __('Setup default repository for network updates'), -anchor => 'w')->grid(-row => $row, -column => 1, -sticky => 'w'); + $fr->Label(-anchor => 'w', -textvariable => \$adjustrepoyesno)->grid(-row => $row, -column => 2, -padx => "2m"); + $adjustrepo_toggle_button = $fr->Button(-text => __("Toggle"), -command => sub { toggle_and_set_opt_variable(\$vars{'option_adjustrepo'}, \$adjustrepoyesno); })->grid(-row => $row, -column => 3, -sticky => "ew", -padx => "2m"); + } if ($vars{'portable'}) { for $b ($pathbutton, $deskintbutton, $assocbutton, $adminbutton) { |