Support for Windows shortcuts; demo shortcuts in install-tl

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

1 files changed, 35 insertions, 3 deletions

diff --git a/Master/install-tl b/Master/install-tl
index a41ee9cfeaf..cd804abc671 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -75,6 +75,9 @@ if (win32) {
     &unregister_script_type
     &broadcast_env
     &update_assocs
+    &add_tl_shortcut
+    &clear_unshortbat
+    &make_tl_shortcuts
     &create_uninstaller
   ));
 }
@@ -175,8 +178,8 @@ GetOptions("media=s" => \$opt_media,
            "help|?" => \$opt_help) or pod2usage(1);
 
 if (win32()) {
-  pod2usage(-exitstatus => 0, 
-            -verbose => 2, 
+  pod2usage(-exitstatus => 0,
+            -verbose => 2,
             -noperldoc => 1,
             -output  => \*STDOUT) if $opt_help;
 } else {
@@ -834,7 +837,7 @@ operations might be disturbed.\n\n";
   foreach my $tmv (@TMFVARS0) {
     delete $ENV{$tmv} if (defined($ENV{$tmv}));
   }
-  if (!$opt_portable) { 
+  if (!$opt_portable) {
     foreach my $tmv (@TMFVARS1) {
       delete $ENV{$tmv} if (defined($ENV{$tmv}));
     }
@@ -872,6 +875,10 @@ operations might be disturbed.\n\n";
   #
   # post install actions
   #
+
+  # clear batchfile for uninstalling shortcuts
+  clear_unshortbat($vars{'TEXDIR'}) if win32;
+
   foreach my $package (sort keys %install) {
     if ($install{$package} && defined($PostInstall{$package})) {
       tllog($::LOG_NORMAL, "running post install action for $package\n");
@@ -975,6 +982,31 @@ operations might be disturbed.\n\n";
     }
   }
 
+  if (win32) {
+    add_tl_shortcut(
+      'Desktop',
+      'TeXdoc',
+      $vars{'TEXDIR'}.'/bin/win32/texdoctk.bat',
+      "",
+      'batgui', # any non-null value ok
+    );
+    add_tl_shortcut(
+      'Desktop',
+      'PS_View',
+      $vars{'TEXDIR'}.'/bin/win32/psv.bat',
+      "%*",
+      'batgui',
+    );
+    add_tl_shortcut(
+      'TeXLive',
+      'TeXLive Manager',
+      $vars{'TEXDIR'}.'/bin/win32/tlmgr.bat',
+      "gui",
+      'batgui',
+    );
+    make_tl_shortcuts($vars{'TEXDIR'});
+  }
+
   # old installer:
   #$config && texconfig-sys init
   #$config || echo "PLEASE RUN texconfig or texconfig-sys to make new formats."