diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-06-12 20:34:37 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-06-12 20:34:37 +0000 |
commit | 0c3e30b7fe8e93071282ca440d05b538d25481f1 (patch) | |
tree | aaa11852ac2ebad04505e31a6cb005586f81d459 /Master/tlpkg/TeXLive/TLPostActions.pm | |
parent | 2bc113c6f403e7665c9c62c91ae6839c63444350 (diff) |
Win32: in case of searchpath problems, add dosbox shortcuts with TL
bin path prepended to normal path.
git-svn-id: svn://tug.org/texlive/trunk@8696 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 19137fd4283..6376dd4a040 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -166,7 +166,7 @@ $PostInstall{'bin-tlpsv.win32'} = \&do_install_bin_tlpsv_win32; # bin-texlive # sub do_install_bin_texlive { - my ($texdir) = @_; + my ($texdir, $texdirw) = @_; if (win32()) { add_menu_shortcut( $mainmenu, @@ -176,12 +176,35 @@ sub do_install_bin_texlive { 'gui', 'batgui', ); + if (uc(TeXLive::TLWinGoo::win_which_dir('tex.exe')) ne + uc($texdir.'/bin/win32')) { + my $texbindir = $texdir."\\bin\\win32"; + $texbindir =~ s!/!\\!g; + add_menu_shortcut( + $mainmenu, + 'TeX Live Prompt', + '', + $ENV{'COMSPEC'}, + "/k \"path $texbindir;%path%\"", + '', + ); + add_desktop_shortcut( + $texdirw, + 'TeX Live Prompt', + '', + $ENV{'COMSPEC'}, + "/k \"path $texbindir;%path%\"", + '', + ); + } } } sub do_remove_bin_texlive { my ($texdir) = @_; if (win32()) { remove_menu_shortcut($mainmenu, 'TeX Live Manager'); + remove_menu_shortcut($mainmenu, 'TeX Live Prompt'); + remove_desktop_shortcut('TeX Live Prompt'); } } $PostInstall{'bin-texlive'} = \&do_install_bin_texlive; |