summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-02-01 15:28:23 +0000
committerNorbert Preining <preining@logic.at>2009-02-01 15:28:23 +0000
commit7348f86aa0e39780dbef38407d5de93d86e17dfe (patch)
treec52b9eeaa0e2377beab1b421e10d3f91f712367b /Master/tlpkg/installer
parentd2280a9ad204c02849bfdf5684df4a4a416076db (diff)
add total needed size to path screen
git-svn-id: svn://tug.org/texlive/trunk@12039 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rw-r--r--Master/tlpkg/installer/install-menu-wizard.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl
index 8978209b9c1..06d776cb2ed 100644
--- a/Master/tlpkg/installer/install-menu-wizard.pl
+++ b/Master/tlpkg/installer/install-menu-wizard.pl
@@ -178,7 +178,7 @@ my %text = ( title => 'TeX Live 2008 Installation',
notwritable => '(default not writable - please change!)',
changetexdir => '(please change TEXDIR first!)',
nolangcol => '(no language collection selected!)',
- finished => 'See TEXDIR/index.html for links to documentation.\nThe TeX Live web site\n(http://tug.org/texlive/) contains any updates and corrections.\nTeX Live is a joint project of the TeX user groups around the world;\nplease consider supporting it by joining the group best for you. The\nlist of groups is available on the web at http://tug.org/usergroups.html.',
+ finished => 'See TEXDIR/index.html for links to documentation.\nThe TeX Live web site (http://tug.org/texlive/) contains any updates and corrections. TeX Live is a joint project of the TeX user groups around the world; please consider supporting it by joining the group best for you. The list of groups is available on the web at http://tug.org/usergroups.html.',
finishedpath => 'Add TEXDIR/texmf/doc/man to MANPATH.\nAdd TEXDIR/texmf/doc/info to INFOPATH.\nMost importantly, add TEXDIR/bin/PLATFORM\nto your PATH for current and future sessions.',
welcome => 'Welcome to TeX Live!',
);
@@ -277,7 +277,7 @@ sub run_menu {
$fmain->pack(-side => "top", -expand => 1, -fill => "both", -padx => "8m", -pady => "8m");
$fbuttons->pack(-side => "bottom", -expand => 1, -fill => "both", -padx => "8m", -pady => "8m");
- $mw->configure(-width => 600, -height => 400);
+ $mw->configure(-width => 600, -height => 440);
$mw->packPropagate(0);
Tk::MainLoop();
return($return);
@@ -350,7 +350,8 @@ sub ask_path {
$pa->pack(-anchor => "w");
$cb->pack(-anchor => "w");
- my $inf = $bf->Label(-text => "The destination folder will contain the installation.\nIt is recommended to keep the year as last component.");
+ calc_depends();
+ my $inf = $bf->Label(-text => "Total size needed: $vars{'total_size'} MB\n\nThe destination folder will contain the installation.\nIt is recommended to keep the year as last component.");
$inf->pack(-padx => "3m", -pady => "3m");
unpack_buttons();