summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-01-16 15:18:16 +0000
committerNorbert Preining <preining@logic.at>2008-01-16 15:18:16 +0000
commit93516fb113c345865fa332f8a6b4cd445ea32b13 (patch)
treebdac93af2ccabd93c92a3930671328cec2d391f1
parent3eaa06e9528352f0711448d92f1b7ab8504ee2e5 (diff)
versions output
git-svn-id: svn://tug.org/texlive/trunk@6264 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/install-menu-perltk-de.pl2
-rw-r--r--Master/tlpkg/TeXLive/install-menu-perltk.pl5
2 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/install-menu-perltk-de.pl b/Master/tlpkg/TeXLive/install-menu-perltk-de.pl
index ac6e268622a..f20e187f2c2 100644
--- a/Master/tlpkg/TeXLive/install-menu-perltk-de.pl
+++ b/Master/tlpkg/TeXLive/install-menu-perltk-de.pl
@@ -1,7 +1,7 @@
my $svnrev = '$Revision$';
$svnrev =~ m/: ([0-9]+) /;
-$::menurevisionlang = $1;
+$::langrevision = $1;
our %translatedtext = ( title => 'TeX Live 2008 Installation',
custom => 'Weitere Einstellungen',
diff --git a/Master/tlpkg/TeXLive/install-menu-perltk.pl b/Master/tlpkg/TeXLive/install-menu-perltk.pl
index af26591a81b..790065b9452 100644
--- a/Master/tlpkg/TeXLive/install-menu-perltk.pl
+++ b/Master/tlpkg/TeXLive/install-menu-perltk.pl
@@ -15,7 +15,7 @@
my $svnrev = '$Revision$';
$svnrev =~ m/: ([0-9]+) /;
$::menurevision = $1;
-$::menureviaionlang = $1;
+$::langrevision = $1;
our %vars;
@@ -170,6 +170,7 @@ sub run_menu {
my $fl = $mw->Frame;
my $img = $fl->Photo(-format => 'png', -file => "texlive2008.png");
$fl->Label(-image => $img)->pack;
+ $fl->Label(-text => "v$::installerrevision/$::menurevision" . ($::lang eq "en"? "" : "/$::lang$langrevision"))->pack;
# data frame on the right
my $fr = $mw->Frame;
@@ -261,6 +262,8 @@ sub run_menu {
$symlinktext = $fsym->Label(-width => $b, -anchor => 'w')->pack(-side => 'left');
$fsym->Button(-width => $c, -text => $text{'change'}, -command => sub { menu_select_symlink(); })->pack(-side => 'left')
}
+
+ # install/cancel buttons
my $f3 = $fr->Frame;
$f3->Button(
-text => $text{'install'},