diff options
author | Norbert Preining <preining@logic.at> | 2008-05-03 16:14:46 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-05-03 16:14:46 +0000 |
commit | d76c4472450b7274b304341f6e42c31f43517734 (patch) | |
tree | c44bd585c03095f860dc432732bc828c2a9d10f0 | |
parent | 5bced813ac07015bcc61e641a7617ecd4d4a190b (diff) |
better looking
git-svn-id: svn://tug.org/texlive/trunk@7829 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/texmf/scripts/texlive/uninstall-win32.pl | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/Master/texmf/scripts/texlive/uninstall-win32.pl b/Master/texmf/scripts/texlive/uninstall-win32.pl index f74e425ef71..f82ee343051 100644 --- a/Master/texmf/scripts/texlive/uninstall-win32.pl +++ b/Master/texmf/scripts/texlive/uninstall-win32.pl @@ -22,14 +22,21 @@ use Tk::Dialog; my $mw = MainWindow->new(-title => "remove tlmgr 2008"); -$mw->Label(-text => "Do you really want to remove TeX Live 2008?")->pack; +my $lab = $mw->Label(-justify => 'left', + -text => "Do you really want to remove TeX Live 2008?"); + +$lab->pack(-padx => "10m", -pady => "5m"); my $f = $mw->Frame; -$f->pack; +$f->pack(-padx => "10m", -pady => "5m"); + +my $ok = $f->Button(-text => "Ok", + -command => sub { $mw->destroy; doit(); exit(0); }); +my $cancel = $f->Button(-text => "Cancel", + -command => sub { $mw->destroy; exit(0); }); -$f->Button(-text => "Ok", - -command => sub { $mw->destroy; doit(); exit(0); })->pack(-side => 'left'); -$f->Button(-text => "Cancel", -command => sub { $mw->destroy; exit(0); })->pack(-side => 'left'); +$ok->pack(-side => 'left', -padx => "3m"); +$cancel->pack(-side => 'left' , -padx => "3m"); sub doit { remove_texbindirs_from_path(); |