diff options
| author | Norbert Preining <preining@logic.at> | 2014-07-07 06:00:50 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2014-07-07 06:00:50 +0000 |
| commit | 0d81956c52ea230f0063dd14a12f2cc2cb8b11df (patch) | |
| tree | 2a339fe200039f6a311a90e9317d2d58cf6ea4be /Master | |
| parent | ab415eae1292e06021b0fa1489a6965c6f5b9225 (diff) | |
add an about button to the installer
git-svn-id: svn://tug.org/texlive/trunk@34538 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 54c7b527eed..bf82453da32 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -500,6 +500,25 @@ Please select a different mirror.', $TeXLive::TLConfig::ReleaseYear, $texlive_re # install/cancel buttons my $f3 = $fr->Frame; + $f3->Button( + -text => __("About"), + -command => sub { + my $sw = $mw->DialogBox(-title => __("About"), + -buttons => [ __("Ok") ]); + $sw->add("Label", -text => " +TeX Live $TeXLive::TLConfig::ReleaseYear +Please see http://www.tug.org/texlive +GUI installer +Copyright 2009-$TeXLive::TLConfig::ReleaseYear The TeX Live Team +Licensed under the GNU General Public License version 2 or higher + +In case of problems, please contact: texlive\@tug.org" + )->pack(-ipadx => "2m", -ipady => "2m"); + $sw->Show; + })->pack(-side => 'left', -padx => "2m", -pady => "2m"); + + + $installbutton = $f3->Button( -text => __("Install TeX Live"), -command => sub { installation_window(); }); |