updates to the tlmgrgui

git-svn-id: svn://tug.org/texlive/trunk@7845 c570f23f-e606-0410-a88d-b1316a301751

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: #