summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-03 16:14:46 +0000
committerNorbert Preining <preining@logic.at>2008-05-03 16:14:46 +0000
commitd76c4472450b7274b304341f6e42c31f43517734 (patch)
treec44bd585c03095f860dc432732bc828c2a9d10f0
parent5bced813ac07015bcc61e641a7617ecd4d4a190b (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.pl17
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();