From ffe930be503d894766414bde214f83b602877ba8 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Fri, 17 Jun 2011 11:30:33 +0000 Subject: Warning about reinitialized dirs when portable toggled git-svn-id: svn://tug.org/texlive/trunk@23027 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-perltk.pl | 4 ++++ Master/tlpkg/installer/install-menu-text.pl | 10 ++++++++++ 2 files changed, 14 insertions(+) (limited to 'Master') 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"; directories: -- cgit v1.2.3