diff options
author | Norbert Preining <preining@logic.at> | 2008-07-10 12:17:42 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-10 12:17:42 +0000 |
commit | e12473f6e285d4c0943c697826dd46d9fc915c33 (patch) | |
tree | 720c923e243be459772f0df9ecac651841b0765b /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | 68542900fa6576da1fbf81d92409e273fcd7d756 (diff) |
GUI installer: show welcome message at the end instead of a simple "Finished"
git-svn-id: svn://tug.org/texlive/trunk@9433 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 73e77f7550b..4fc6dde709e 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -32,6 +32,7 @@ my $return = $MENU_INSTALL; require Tk; require Tk::Dialog; +require Tk::DialogBox; require Tk::PNG; use utf8; no utf8; @@ -84,10 +85,10 @@ push @::start_install_hook, sub { update_statusbar("Starting Installation"); Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; push @::start_postinst_hook, sub { update_statusbar("Starting Post Installation Jobs"); Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; + push @::end_install_hook, sub { update_statusbar("Installation finished"); Tk::DoOneEvent(Tk::Event::DONT_WAIT); Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; - push @::install_packages_hook, \&update_statusbar; # no idea how many of those are necessary, 1 is definitely not enough! push @::install_packages_hook, sub { Tk::DoOneEvent(Tk::Event::DONT_WAIT); }; @@ -121,7 +122,6 @@ my %text = ( title => 'TeX Live 2008 Installation', change => 'Change', toggle => 'Toggle', install => 'Install TeX Live', - finished => 'Installation finished', finbut => 'Finish', quit => 'Quit', ok => 'Ok', @@ -150,6 +150,9 @@ my %text = ( title => 'TeX Live 2008 Installation', notwritable => '(default not writable - please change!)', changetexdir => '(please change TEXDIR first!)', nolangcol => '(no language col selected!)', + finished => 'See ./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.', + 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!', ); @@ -183,7 +186,7 @@ if (($::lang ne "en") && ($::lang ne "C")) { chomp; next if m/^\s*#/; next if m/^\s*$/; - my ($a,$b) = split(/:/,$_); + my ($a,$b) = split(/:/,$_,2); $b =~ s/^\s*([^\s])/$1/; $b =~ s/\s*$//; if (!utf8::decode($b)) { @@ -361,7 +364,18 @@ sub run_menu { -text => $text{'install'}, -command => sub { do_installation(); $return = $MENU_ALREADYDONE; - $fr->Dialog(-text => $text{'finished'}, -buttons => [ $text{'finbut'} ])->Show; + my $t = $text{'finished'}; + if (!win32()) { + $t .= "\n\n$text{'finishedpath'}"; + } + $t .= "\n\n$text{'welcome'}"; + $t =~ s/TEXDIR/$::vars{'TEXDIR'}/g; + $t =~ s/PLATFORM/$::vars{'this_platform'}/g; + $t =~ s/\\n/\n/g; + my $sw = $mainwindow->DialogBox(-title => $text{'finbut'}, -buttons => [ $text{'finbut'} ]); + $sw->add("Label", -text => $t)->pack; + $sw->Show; + #$fr->Dialog(-text => $t, -buttons => [ $text{'finbut'} ])->Show; $mainwindow->destroy }, )->pack(-side => 'left'); my $quitbutton = $f3->Button( |