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