summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-02-27 14:17:34 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-02-27 14:17:34 +0000
commita9ab728d2a8b514da67b964a845f2e5bb7308f60 (patch)
treeb3bb1c4353420103f6e4fd253d67bd64aa07fc96 /Master/tlpkg/installer/install-tl-gui.tcl
parent031c04eef86cf6a023875460fb579c853f7cb81b (diff)
Translations loaded in tlmgr and install-tl
git-svn-id: svn://tug.org/texlive/trunk@57970 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl48
1 files changed, 1 insertions, 47 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index 14c4fa49a0c..a8b5c0415c1 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -150,52 +150,7 @@ proc dblog {s} {
close $db
}
-proc maybe_print_welcome {} {
- # if the last non-empty line was "All done", then installation is completed.
- # otherwise, it was help output or an interrupted installation.
- # we allow for spurious empty lines at the end of the backend output.
-
- set all_done 0
- for {set i [.log.tx count -lines 1.0 end]} {$i > 0} {incr i -1} {
- set l [.log.tx get ${i}.0 ${i}.end]
- if {$l ne ""} {
- if {[string range $l 0 11] eq "Installed on"} {
- set all_done 1
- }
- break
- }
- }
- if {!$all_done} return
- # need TEXDIR and this_platform in case of profile install
- if {! [info exists ::vars(this_platform)] || \
- ! [info exists ::vars(TEXDIR)]} {
- if [regexp {^Installed on platform (.*) at (.*)$} $l m p r] {
- set ::vars(this_platform) $p
- set ::vars(TEXDIR) $r
- } else {
- set ::vars(this_platform) "PLATFORM"
- set ::vars(TEXDIR) "ROOT"
- }
- }
-
- .log.tx configure -state normal
- .log.tx tag configure center -justify center
- .log.tx delete ${i}.0 end
- .log.tx insert end "\n\n"
- .log.tx insert end [__ "Welcome to TeX Live!"] center
- .log.tx insert end "\n\n"
- # tags appear to interfere with --/::msgcat::mc !?!
- set s [__ "See %s/index.html for links to documentation.\nThe TeX Live web site (https://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 https://tug.org/usergroups.html." $::vars(TEXDIR)]
- .log.tx insert end $s center
- if {$::tcl_platform(platform) ne "windows"} {
- .log.tx insert end "\n\n"
- set s [__ "Add %s/texmf-dist/doc/man to MANPATH.\nAdd %s/texmf-dist/doc/info to INFOPATH.\nMost importantly, add %s/bin/%s\nto your PATH for current and future sessions." $::vars(TEXDIR) $::vars(TEXDIR) $::vars(TEXDIR) $::vars(this_platform)]
- .log.tx insert end $s center
- }
- .log.tx insert end "\n"
- .log.tx yview moveto 1
- if {$::tcl_platform(os) ne "Darwin"} {.log.tx configure -state disabled}
-}
+# welcome message now provided by install-tl
# regular read_line
proc read_line {} {
@@ -256,7 +211,6 @@ proc read_line_cb {} {
# This closes stdin of the child
.close state !disabled
if [winfo exists .abort] {.abort state disabled}
- maybe_print_welcome
} elseif {$len >= 0} {
# regular output
.log.tx configure -state normal