summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2014-07-07 06:00:50 +0000
committerNorbert Preining <preining@logic.at>2014-07-07 06:00:50 +0000
commit0d81956c52ea230f0063dd14a12f2cc2cb8b11df (patch)
tree2a339fe200039f6a311a90e9317d2d58cf6ea4be /Master/tlpkg/installer/install-menu-perltk.pl
parentab415eae1292e06021b0fa1489a6965c6f5b9225 (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/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl19
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(); });