summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-01-14 13:14:55 +0000
committerNorbert Preining <preining@logic.at>2010-01-14 13:14:55 +0000
commitf41ceb9644926a2c09d909bedd3324f8b34f40bd (patch)
treed6e31ef9f8438ee54993a73a9caf4891cc7d4145 /Master/texmf
parent7dc139f9bd40e8b010ae0ee32fea1bdc53f2bea0 (diff)
show tlmgrgui.pl revision, remove GUIv2 string
git-svn-id: svn://tug.org/texlive/trunk@16711 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rw-r--r--Master/texmf/scripts/texlive/tlmgrgui.pl16
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui.pl
index 5d6e952ea58..b6ea4e8771a 100644
--- a/Master/texmf/scripts/texlive/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui.pl
@@ -16,14 +16,17 @@
$^W = 1;
use strict;
-my $svnrev = '$Revision$';
-my $datrev = '$Date$';
+my $guisvnrev = '$Revision$';
+my $guidatrev = '$Date$';
my $tlmgrguirevision;
-if ($svnrev =~ m/: ([0-9]+) /) {
+if ($guisvnrev =~ m/: ([0-9]+) /) {
$tlmgrguirevision = $1;
} else {
$tlmgrguirevision = "unknown";
}
+$guidatrev =~ s/^.*Date: //;
+$guidatrev =~ s/ \(.*$//;
+$tlmgrguirevision .= " ($guidatrev)";
use Tk;
use Tk::Dialog;
@@ -538,9 +541,10 @@ sub setup_menu_system {
-command => sub {
my $sw = $mw->DialogBox(-title => __("About"),
-buttons => [ __("Ok") ]);
- $sw->add("Label", -text => "TeX Live Manager (GUIv2)
-tlmgr.pl: $tlmgrrev
-tlmgrgui.pl: $tlmgrguirev
+ $sw->add("Label", -text => "TeX Live Manager
+
+tlmgrgui revision $tlmgrguirevision
+$tlmgrrev
Copyright 2009 Norbert Preining
Licensed under the GNU General Public License version 2 or higher