diff options
-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: |