summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-05-15 09:41:16 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-05-15 09:41:16 +0000
commit2fd99762c5a0bb67a16df56cc53cebe999758fcc (patch)
tree511632004a37a45def3f20be615429e2e64a40f0 /Master/texmf
parentc84607c998889966cc0fbefa09774fd70e17688a (diff)
Support for Windows shortcuts; demo shortcuts in install-tl
git-svn-id: svn://tug.org/texlive/trunk@8153 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r--Master/texmf/scripts/texlive/uninstall-win32.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/uninstall-win32.pl b/Master/texmf/scripts/texlive/uninstall-win32.pl
index f82ee343051..4f69e7667aa 100644
--- a/Master/texmf/scripts/texlive/uninstall-win32.pl
+++ b/Master/texmf/scripts/texlive/uninstall-win32.pl
@@ -11,7 +11,7 @@ my $Master;
BEGIN {
$^W = 1;
- $Master = `kpsewhich -var-value=SELFAUTOPARENT`;
+ $Master = `%COMSPEC% /c kpsewhich -var-value=SELFAUTOPARENT`;
chomp($Master);
unshift (@INC, "$Master/tlpkg");
}
@@ -22,7 +22,7 @@ use Tk::Dialog;
my $mw = MainWindow->new(-title => "remove tlmgr 2008");
-my $lab = $mw->Label(-justify => 'left',
+my $lab = $mw->Label(-justify => 'left',
-text => "Do you really want to remove TeX Live 2008?");
$lab->pack(-padx => "10m", -pady => "5m");
@@ -30,9 +30,9 @@ $lab->pack(-padx => "10m", -pady => "5m");
my $f = $mw->Frame;
$f->pack(-padx => "10m", -pady => "5m");
-my $ok = $f->Button(-text => "Ok",
+my $ok = $f->Button(-text => "Ok",
-command => sub { $mw->destroy; doit(); exit(0); });
-my $cancel = $f->Button(-text => "Cancel",
+my $cancel = $f->Button(-text => "Cancel",
-command => sub { $mw->destroy; exit(0); });
$ok->pack(-side => 'left', -padx => "3m");