summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl
blob: ffb7623181dd4c9969bed8c5a42af5c1315daa01 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
# gui-uninstall.pl
# $Id$
#
# Copyright 2008 Tomasz Luczak
# Copyright 2008, 2009 Norbert Preining
#
# GUI for tlmgr
#

our $back_f3 = $back->add("uninstall", -label => ___"removaltab");
$screens{"uninstall"} = $back_f3;

if ($^O=~/^MSWin(32|64)$/i) {
  my $lab = $back_f3->Label(-justify    => 'left', 
           -text => ___"pleaseuse");

  $lab->pack(-padx => "10m", -pady => "5m");
} else {
  my $lab = $back_f3->Label(-justify    => 'left', 
           -text => ___"reallyremove");

  $lab->pack(-padx => "10m", -pady => "5m");

  my $f = $back_f3->Frame;
  $f->pack(-padx => "10m", -pady => "5m");

  my $ok = $f->Button(-text => ___"removetl", 
          -command => sub { 
                            system("tlmgr", "uninstall", "--force");
                            $mw->Dialog(-text => ___"completerem", -buttons => [ ___"ok" ])->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: #