summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-10 12:17:42 +0000
committerNorbert Preining <preining@logic.at>2008-07-10 12:17:42 +0000
commite12473f6e285d4c0943c697826dd46d9fc915c33 (patch)
tree720c923e243be459772f0df9ecac651841b0765b /Master/tlpkg/installer/install-menu-perltk.pl
parent68542900fa6576da1fbf81d92409e273fcd7d756 (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.pl22
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(