summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-03 15:38:14 +0000
committerNorbert Preining <preining@logic.at>2008-05-03 15:38:14 +0000
commit790827ec840325550465ff5db4e35748a9e807dc (patch)
tree42cf94a3843ae23c23c2692c140db881143d9797 /Master/texmf
parentd1eba391dc7bc6e49400fdc0a69d9e572f355eac (diff)
gui uninstaller for win32 ...
git-svn-id: svn://tug.org/texlive/trunk@7826 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl16
-rw-r--r--Master/texmf/scripts/texlive/uninstall-win32.pl54
2 files changed, 54 insertions, 16 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 8101ee9c4aa..dee1e083eaf 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -132,9 +132,6 @@ if ($action =~ m/^generate$/i) {
} elsif ($action =~ m/^uninstall$/i) {
$ret = action_uninstall();
exit(0);
-} elsif ($action =~ m/^uninstallwin32$/i) {
- $ret = action_uninstall_win32();
- exit(0);
} else {
die "Unknown action: $action";
}
@@ -682,19 +679,6 @@ sub init_local_db {
}
}
-sub action_uninstall_win32 {
- if (win32()) {
- remove_texbindirs_from_path();
- unsetenv_reg("TEXBINDIR");
- # unregister_script_type(".texlua");
- unregister_uninstaller();
- exit if is_vista();
- broadcast_env();
- update_assocs();
- }
-}
-
-
sub action_uninstall {
if (win32()) {
printf STDERR "Please use \"Add/Remove Programs\" from the Control Panel to removing TeX Live!\n";
diff --git a/Master/texmf/scripts/texlive/uninstall-win32.pl b/Master/texmf/scripts/texlive/uninstall-win32.pl
new file mode 100644
index 00000000000..f74e425ef71
--- /dev/null
+++ b/Master/texmf/scripts/texlive/uninstall-win32.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/env perl
+#
+# $Id: uninstall-win32.pl 7822 2008-05-03 14:42:15Z preining $
+#
+# Copyright 2008 Norbert Preining
+#
+# GUI for tlmgr
+#
+
+my $Master;
+
+BEGIN {
+ $^W = 1;
+ $Master = `kpsewhich -var-value=SELFAUTOPARENT`;
+ chomp($Master);
+ unshift (@INC, "$Master/tlpkg");
+}
+
+use TeXLive::TLWinGoo;
+use Tk;
+use Tk::Dialog;
+
+my $mw = MainWindow->new(-title => "remove tlmgr 2008");
+
+$mw->Label(-text => "Do you really want to remove TeX Live 2008?")->pack;
+
+my $f = $mw->Frame;
+$f->pack;
+
+$f->Button(-text => "Ok",
+ -command => sub { $mw->destroy; doit(); exit(0); })->pack(-side => 'left');
+$f->Button(-text => "Cancel", -command => sub { $mw->destroy; exit(0); })->pack(-side => 'left');
+
+sub doit {
+ remove_texbindirs_from_path();
+ unsetenv_reg("TEXBINDIR");
+ # unregister_script_type(".texlua");
+ unregister_uninstaller();
+ exit if is_vista();
+ broadcast_env();
+ update_assocs();
+}
+
+Tk::MainLoop();
+
+__END__
+
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2 expandtab: #