summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-12-07 11:15:32 +0000
committerNorbert Preining <preining@logic.at>2008-12-07 11:15:32 +0000
commit86fb9b993d39c2763986fd49b5c2cdcfd07e6dc4 (patch)
tree6a601c90ee65494aecda4eadbd6c2638a7ed398f
parente2494b68ba6b7a8264829ecbede34c09b17f0512 (diff)
make About window a bit nicer
git-svn-id: svn://tug.org/texlive/trunk@11544 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl10
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
index f1ad2d85e8a..0c44f972077 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl
@@ -245,13 +245,15 @@ my $tlmgrrev = give_version();
chomp($tlmgrrev);
our $about = $top->Button(-text => ___"about",
-command => sub {
- $mw->Dialog(-title => ___"about",
- -text => "TeX Live Manager GUI
+ my $sw = $mw->DialogBox(-title => ___"about",
+ -buttons => [ ___"ok" ]);
+ $sw->add("Label", -text => "TeX Live Manager GUI
$tlmgrrev
Copyright 2008 Tomasz Luczak, Norbert Preining
License under the GNU General Public License version 2 or higher
-In case of problems, please contact: texlive\@tug.org",
- -buttons => [ ___"ok" ])->Show;
+In case of problems, please contact: texlive\@tug.org"
+ )->pack(-padx => "3m", -pady => "3m");
+ $sw->Show;
});
$about->pack(-side => 'right');