From 0aff3f27af0d957e3e2f1a4c8475bdbfc77ad0f0 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 10 Mar 2019 11:46:56 +0000 Subject: windows uninstaller no longer uses Perl/Tk git-svn-id: svn://tug.org/texlive/trunk@50308 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/scripts/texlive/uninstall-win32.pl | 36 ++++++---------------- 1 file changed, 10 insertions(+), 26 deletions(-) (limited to 'Master/texmf-dist/scripts/texlive/uninstall-win32.pl') diff --git a/Master/texmf-dist/scripts/texlive/uninstall-win32.pl b/Master/texmf-dist/scripts/texlive/uninstall-win32.pl index 6cf39b0230d..d82bd38184f 100755 --- a/Master/texmf-dist/scripts/texlive/uninstall-win32.pl +++ b/Master/texmf-dist/scripts/texlive/uninstall-win32.pl @@ -18,31 +18,17 @@ use TeXLive::TLPDB; use TeXLive::TLPOBJ; use TeXLive::TLConfig; use TeXLive::TLUtils; -use Tk; -use Tk::Dialog; -my $mw = MainWindow->new(-title => "remove tlmgr $TeXLive::TLConfig::ReleaseYear"); - -my $f = $mw->Frame; -my $lab = $f->Label( -# -justify => 'left', - -text => "Do you really want to remove TeX Live $TeXLive::TLConfig::ReleaseYear?"); -$lab->pack(-side => "left", -padx => "12", -pady => "6"); - -$f->pack(# -padx => "10m", - -pady => "12"); - -my $ok = $f->Button(-text => "Ok", - -command => sub { $mw->destroy; doit(); exit(0); }); -my $cancel = $f->Button(-text => "Cancel", - -command => sub { $mw->destroy; exit(1); }); - -$cancel->pack(-side => 'right' , -padx => "12"); -$ok->pack(-side => 'right', -padx => "12"); - -$mw->Label( - -text => "Please make sure that no TeX Live programs are still running!" -)->pack(-padx => "12", -pady => "12"); +my $askfile = $0; +$askfile =~ s!^(.*)([\\/])([^\\/]*)$!$1$2!; +$askfile .= "uninstq.vbs"; +my $ans = system("wscript", $askfile); +# 0 means yes +if ($ans) { + exit(1); +} else { + doit(); +} sub doit { # first we remove the whole bunch of shortcuts and menu entries @@ -81,8 +67,6 @@ sub doit { TeXLive::TLWinGoo::update_assocs(); } -Tk::MainLoop(); - __END__ -- cgit v1.2.3