From 5a57b804e08ff83dbcafca27e4249dc2b898b55e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 31 Jul 2008 19:31:53 +0000 Subject: TLPostInstall.pm: Fix installation of documentation into the menu on win32: - some docs are renamed from live.pdf to texlive-en.pdf - install the html also into the menu if possible - rename texlive-ge to texlive-de git-svn-id: svn://tug.org/texlive/trunk@9952 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPostActions.pm | 42 +++++++++++++++++++++++++---------- 1 file changed, 30 insertions(+), 12 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm') diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 2000b477917..9f23c6ed4ba 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -268,9 +268,17 @@ sub do_install_texlive_en { if (win32()) { add_menu_shortcut( $mainmenu, - 'TeX Live Manual (en)', + 'TeX Live Manual (en) (HTML)', '', # default pdf icon - $texdir.'/texmf-doc/doc/english/texlive-en/live.pdf', + $texdir.'/texmf-doc/doc/english/texlive-en/texlive-en.html', + '', + '', + ); + add_menu_shortcut( + $mainmenu, + 'TeX Live Manual (en) (PDF)', + '', # default pdf icon + $texdir.'/texmf-doc/doc/english/texlive-en/texlive-en.pdf', '', '', ); @@ -279,7 +287,8 @@ sub do_install_texlive_en { sub do_remove_texlive_en { my ($texdir) = @_; if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (en)'); + remove_menu_shortcut($mainmenu,'TeX Live Manual (en) (HTML)'); + remove_menu_shortcut($mainmenu,'TeX Live Manual (en) (PDF)'); } } $PostInstall{'texlive-en'} = \&do_install_texlive_en; @@ -318,9 +327,17 @@ sub do_install_texlive_fr { if (win32()) { add_menu_shortcut( $mainmenu, - 'TeX Live Manual (fr)', + 'TeX Live Manual (fr) (PDF)', + '', # default pdf icon + $texdir.'/texmf-doc/doc/french/texlive-fr/texlive-fr.pdf', + '', + '', + ); + add_menu_shortcut( + $mainmenu, + 'TeX Live Manual (fr) (HTML)', '', # default pdf icon - $texdir.'/texmf-doc/doc/french/texlive-fr/live.pdf', + $texdir.'/texmf-doc/doc/french/texlive-fr/texlive-fr.html', '', '', ); @@ -329,36 +346,37 @@ sub do_install_texlive_fr { sub do_remove_texlive_fr { my ($texdir) = @_; if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (fr)'); + remove_menu_shortcut($mainmenu,'TeX Live Manual (fr) (HTML)'); + remove_menu_shortcut($mainmenu,'TeX Live Manual (fr) (PDF)'); } } $PostInstall{'texlive-fr'} = \&do_install_texlive_fr; $PostRemove{'texlive-fr'} = \&do_remove_texlive_fr; # -# texlive-ge +# texlive-de # -sub do_install_texlive_ge { +sub do_install_texlive_de { my ($texdir) = @_; if (win32()) { add_menu_shortcut( $mainmenu, 'TeX Live Manual (de)', '', # default pdf icon - $texdir.'/texmf-doc/doc/german/texlive-ge/live.pdf', + $texdir.'/texmf-doc/doc/german/texlive-de/live.pdf', '', '', ); } } -sub do_remove_texlive_ge { +sub do_remove_texlive_de { my ($texdir) = @_; if (win32()) { remove_menu_shortcut($mainmenu,'TeX Live Manual (de)'); } } -$PostInstall{'texlive-ge'} = \&do_install_texlive_ge; -$PostRemove{'texlive-ge'} = \&do_remove_texlive_ge; +$PostInstall{'texlive-de'} = \&do_install_texlive_de; +$PostRemove{'texlive-de'} = \&do_remove_texlive_de; # # texlive-pl -- cgit v1.2.3