diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-05-15 09:41:16 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-05-15 09:41:16 +0000 |
commit | 2fd99762c5a0bb67a16df56cc53cebe999758fcc (patch) | |
tree | 511632004a37a45def3f20be615429e2e64a40f0 /Master/texmf | |
parent | c84607c998889966cc0fbefa09774fd70e17688a (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.pl | 8 |
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"); |