summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-03-06 11:15:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-03-06 11:15:49 +0000
commit677038c6ed6dd0d34cb1f123df94467e96ef4c14 (patch)
tree7336b66afc611777b6539f99f89a57fd16c54368 /Master/tlpkg/installer/install-tl-gui.tcl
parent2e5b0bc37e6b198ae9d8d00afd7efec8d7c34394 (diff)
Tcl now default gui
git-svn-id: svn://tug.org/texlive/trunk@50257 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index a2b764ac85c..c81e97a15bc 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -133,7 +133,7 @@ proc maybe_print_welcome {} {
.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 (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." $::vars(TEXDIR)]
+ 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"
@@ -1220,7 +1220,7 @@ proc run_menu {} {
incr rw
if {!$::alltrees} {
- ttk::button .tmoreb -text [__ "More..."] -command {
+ ttk::button .tmoreb -text [__ "More ..."] -command {
set ::menu_ans "alltrees"
if [info exists ::env(dbgui)] {puts "dbgui: requested alltrees"}
}
@@ -1673,6 +1673,7 @@ proc main_prog {} {
incr i
}
unset i
+ # tk_messageBox -message [join $cmd " "] -title "debugging"
show_time "opening pipe"
if [catch {open "|[join $cmd " "] 2>@1" r+} ::inst] {
# "2>@1" ok under Windows >= XP