diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-10 11:46:56 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-03-10 11:46:56 +0000 |
commit | 0aff3f27af0d957e3e2f1a4c8475bdbfc77ad0f0 (patch) | |
tree | 338efa836a107e455aec23c5ea917179b6a9cade /Master/texmf-dist/scripts/texlive/uninstq.vbs | |
parent | 6962188a7c62735631118a3506e96e6bdc260d88 (diff) |
windows uninstaller no longer uses Perl/Tk
git-svn-id: svn://tug.org/texlive/trunk@50308 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/texlive/uninstq.vbs')
-rw-r--r-- | Master/texmf-dist/scripts/texlive/uninstq.vbs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/uninstq.vbs b/Master/texmf-dist/scripts/texlive/uninstq.vbs new file mode 100644 index 00000000000..7e768ac8223 --- /dev/null +++ b/Master/texmf-dist/scripts/texlive/uninstq.vbs @@ -0,0 +1,15 @@ +Dim ans +ans = MsgBox( "Really uninstall TeX Live?", 36, "TeX Live uninstaller" ) +If ans <> vbYes Then + wscript.quit( 1 ) +Else + wscript.quit( 0 ) +End If + +' invocation from cmd.exe: +' start /wait uninstq.vbs +' test errorlevel + +' invocation from perl: +' my $ans = system( "wscript", "uninstq.vbs" ); +' 0 means yes
\ No newline at end of file |