summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl54
1 files changed, 54 insertions, 0 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
new file mode 100644
index 00000000000..5753d589399
--- /dev/null
+++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
@@ -0,0 +1,54 @@
+# gui-uninstall.pl
+# $Id: gui-uninstall.pl 7821 2008-05-03 14:41:01Z preining $
+#
+# Copyright 2009 Tomasz Luczak, Norbert Preining
+#
+# GUI for tlmgr
+#
+
+
+# frame .back.f1
+$back_f3 = $back->Frame;
+
+if ($^O=~/^MSWin(32|64)$/i) {
+ my $lab = $back_f3->Label(-justify => 'left',
+ -text => "Start the TeX Live 2008 Uninstaller?");
+
+ $lab->pack(-padx => "10m", -pady => "5m");
+
+ my $f = $back_f3->Frame;
+ $f->pack(-padx => "10m", -pady => "5m");
+ my $ok = $f->Button(-text => "Ok",
+ -command => sub {
+ system("\"$Master/tlpkg/installer/uninst.bat\"");
+ exit(0);
+ });
+ $ok->pack(-side => 'left', -padx => "3m");
+} else {
+ my $lab = $back_f3->Label(-justify => 'left',
+ -text => "Really remove the complete TeX Live 2008 installation?");
+
+ $lab->pack(-padx => "10m", -pady => "5m");
+
+ my $f = $back_f3->Frame;
+ $f->pack(-padx => "10m", -pady => "5m");
+
+ my $ok = $f->Button(-text => "Remove TeX Live 2008",
+ -command => sub {
+ system("tlmgr", "uninstall", "--force");
+ $mw->Dialog(-text => "Complete removal completed", -buttons => [ "Bye" ])->Show;
+ $mw->destroy;
+ exit(0);
+ });
+
+ $ok->pack(-side => 'left', -padx => "3m");
+}
+
+1;
+
+### Local Variables:
+### perl-indent-level: 2
+### tab-width: 2
+### indent-tabs-mode: nil
+### End:
+# vim:set tabstop=2 expandtab: #