add TLPostActions for bin-dviout.win32 (although that is not existent atm, but

we need to ship that new TLPostActions *first* before we introduce the
bin-dviout.win32 package.


git-svn-id: svn://tug.org/texlive/trunk@10756 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 27 insertions, 0 deletions

diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm
index 6d0a024e86a..dd133d46a11 100644
--- a/Master/tlpkg/TeXLive/TLPostActions.pm
+++ b/Master/tlpkg/TeXLive/TLPostActions.pm
@@ -130,6 +130,33 @@ sub do_install_xetex {
 $PostInstall{"xetex"} = \&do_install_xetex;
 
 #
+# bin-dviout.win32
+#
+sub do_install_bin_dviout_win32 {
+  my ($texdir, $texdirw) = @_;
+  my $texdir_bsl = conv_to_win_path($texdir);
+  if (win32()) {
+    add_menu_shortcut(
+      $mainmenu,
+      'DVIOUT Dvi Viewer',
+      $texdir.'/tlpkg/dviout/dviout.exe', # for the icon
+      'wscript',
+      $texdir_bsl."\\bin\\win32\\dviout.vbs",
+      '',
+    );
+  }
+}
+sub do_remove_bin_dviout_win32 {
+  my ($texdir) = @_;
+  if (win32()) {
+    remove_menu_shortcut($mainmenu, 'DVIOUT Dvi Viewer');
+  }
+}
+$PostInstall{'bin-dviout.win32'} = \&do_install_bin_dviout_win32;
+$PostRemove{'bin-dviout.win32'} = \&do_remove_bin_dviout_win32;
+
+
+#
 # bin-texdoc
 #
 sub do_install_bin_texdoc {