diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-06-17 11:30:33 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-06-17 11:30:33 +0000 |
| commit | ffe930be503d894766414bde214f83b602877ba8 (patch) | |
| tree | a90a56d3557dfe89747811bba988c8bc41e818f2 /Master | |
| parent | 242169f7dd9867e22e5e79395b2f9fd6dddb6804 (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.pl | 4 | ||||
| -rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 10 |
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: |