summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-06-17 11:30:33 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-06-17 11:30:33 +0000
commitffe930be503d894766414bde214f83b602877ba8 (patch)
treea90a56d3557dfe89747811bba988c8bc41e818f2 /Master
parent242169f7dd9867e22e5e79395b2f9fd6dddb6804 (diff)
Warning about reinitialized dirs when portable toggled
git-svn-id: svn://tug.org/texlive/trunk@23027 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl4
-rwxr-xr-xMaster/tlpkg/installer/install-menu-text.pl10
2 files changed, 14 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index d7ef1029bbb..584574c778a 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -1075,6 +1075,10 @@ sub toggle_portable {
}
}
set_texlive_default_dirs(); # this sub tests for portable and in_place
+ $mw -> messageBox(
+ -title => 'Warning',
+ -message => __("Portable option changed;\nDirectories have been reinitialized"),
+ -type => 'OK', -icon => 'warning');
menu_set_pathes_text();
# same for some options
}
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index b349c52ce59..907e4c8f5e5 100755
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -28,6 +28,11 @@ our $MENU_QUIT = 2;
my $RETURN = $MENU_CONTINUE;
+my $portable_toggled = 0;
+my $ptoggle_alert = "\n".
+ " !! Portable option changed;\n" .
+ " !! Directories have been reinitialized!\n";
+
# issue welcome message on end of installation
push @::end_install_hook,
sub { if (win32()) { print TeXLive::TLUtils::welcome(); }
@@ -910,6 +915,7 @@ sub toggle_portable {
$vars{'option_file_assocs'} = 1;
$vars{'option_w32_multi_user'} = 1;
}
+ $portable_toggled = 1;
set_texlive_default_dirs(); # this sub tests for portable and in_place
main_menu;
}
@@ -987,6 +993,10 @@ EOF
print " !! If you only write American English documents that is fine!\n";
}
}
+ if ($portable_toggled) {
+ print $ptoggle_alert;
+ $portable_toggled = 0;
+ }
print <<"EOF";
<D> directories: