diff options
Diffstat (limited to 'Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl')
-rw-r--r-- | Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl index 1210baf2694..d942e8ae0c9 100644 --- a/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/gui-uninstall.pl @@ -6,27 +6,27 @@ # GUI for tlmgr # -our $back_f3 = $back->add("uninstall", -label => _"Uninstallation"); +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 => _"Please use the \"Add/Remove Programs\" from the Control Panel!"); + -text => _"pleaseuse"); $lab->pack(-padx => "10m", -pady => "5m"); } else { my $lab = $back_f3->Label(-justify => 'left', - -text => _"Really remove the complete TeX Live 2008 installation?\nNo more confirmation will be asked!"); + -text => _"reallyremove"); $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", + my $ok = $f->Button(-text => _"removetl", -command => sub { system("tlmgr", "uninstall", "--force"); - $mw->Dialog(-text => _"Complete removal completed", -buttons => [ "Bye" ])->Show; + $mw->Dialog(-text => _"completerem", -buttons => [ _"ok" ])->Show; $mw->destroy; exit(0); }); |