From 93516fb113c345865fa332f8a6b4cd445ea32b13 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 16 Jan 2008 15:18:16 +0000 Subject: versions output git-svn-id: svn://tug.org/texlive/trunk@6264 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/install-menu-perltk-de.pl | 2 +- Master/tlpkg/TeXLive/install-menu-perltk.pl | 5 ++++- 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'}, -- cgit v1.2.3