add total needed size to path screen

git-svn-id: svn://tug.org/texlive/trunk@12039 c570f23f-e606-0410-a88d-b1316a301751

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();