diff options
| author | Norbert Preining <preining@logic.at> | 2008-12-07 11:15:32 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-12-07 11:15:32 +0000 |
| commit | 86fb9b993d39c2763986fd49b5c2cdcfd07e6dc4 (patch) | |
| tree | 6a601c90ee65494aecda4eadbd6c2638a7ed398f /Master | |
| parent | e2494b68ba6b7a8264829ecbede34c09b17f0512 (diff) | |
make About window a bit nicer
git-svn-id: svn://tug.org/texlive/trunk@11544 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui2.pl | 10 |
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'); |