summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl11
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) {