diff options
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 42 |
1 files changed, 30 insertions, 12 deletions
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 |