summaryrefslogtreecommitdiff
path: root/Build
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-03-25 20:47:34 +0000
committerKarl Berry <karl@freefriends.org>2019-03-25 20:47:34 +0000
commit2a1772885b59e209e9e7c7f5136d420556d11829 (patch)
treee3dbee20374afff8fd03d9c62b8d140db985b565 /Build
parent01303b6e878b8bcccb9595ce53d89d98878f4df3 (diff)
xindex (25mar19)
git-svn-id: svn://tug.org/texlive/trunk@50588 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl50
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/xindex/xindex.lua2
2 files changed, 29 insertions, 23 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl b/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
index 8db765b5eac..c3b9d44cfbf 100755
--- a/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
+++ b/Build/source/texk/texlive/linked_scripts/tlshell/tlshell.tcl
@@ -367,14 +367,8 @@ proc start_tlmgr {{args ""}} {
} ; # start_tlmgr
proc close_tlmgr {} {
- if {[catch {chan close $::tlshl}] || [catch {chan close $::err}]} {
- tk_messageBox -message [get_stacktrace]
- return 0
- } else {
- set ::perlpid 0
- return 1
- }
-}; # close_tlmgr
+ run_cmd_waiting "quit"
+}
# read a line of tlmgr output
proc read_line {} {
@@ -382,12 +376,20 @@ proc read_line {} {
# if it wants to wait for the command to finish
set l "" ; # will contain the line to be read
if {([catch {chan gets $::tlshl l} len] || [chan eof $::tlshl])} {
- #do_debug "read_line: failing to read "
- puts stderr "Read failure; tlmgr command was $::last_cmd"
- if {! [catch {chan close $::tlshl}]} {set ::perlpid 0}
- # note. the right way to terminate is terminating the GUI shell.
- # This closes stdin of tlmgr shell.
- err_exit
+ if [chan eof $::tlshl] {
+ catch {chan close $::tlshl}
+ catch {chan close $:err}
+ unset -nocomplain ::tlshl
+ unset -nocomplain ::err
+ set ::perlpid 0
+ set ::done_waiting 1
+ } else {
+ #do_debug "read_line: failing to read "
+ puts stderr "Read failure; tlmgr command was $::last_cmd"
+ # note. the normal way to terminate is terminating the GUI shell.
+ # This closes stdin of tlmgr shell.
+ err_exit
+ }
} elseif {$len >= 0} {
# do_debug "read: $l"
if $::ddebug {puts $::flid $l}
@@ -1527,7 +1529,7 @@ proc update_self_q {} {
set ans [tk_messageBox -type okcancel -icon info -message \
[string cat [__ "If update fails, try on a command-line:"] \
"\ntlmgr update --self\n" \
- [__ "Use an admininstrative command prompt for an admin install."]]]
+ [__ "Use an administrative command prompt for an admin install."]]]
return [$ans eq ok]
}
@@ -2029,8 +2031,12 @@ proc populate_main {} {
.mn.opt add cascade -label [__ "GUI language (restarts tlshell)"] \
-menu .mn.opt.lang
menu .mn.opt.lang
- foreach l $::langs {
- .mn.opt.lang add command -label $l -command "set_language $l"
+ foreach l [lsort $::langs] {
+ if {$l eq $::lang} {
+ .mn.opt.lang add command -label "$l *"
+ } else {
+ .mn.opt.lang add command -label "$l" -command "set_language $l"
+ }
}
}
@@ -2065,9 +2071,9 @@ proc populate_main {} {
-in .endbuttons -side right
ppack [ttk::button .r -text [__ "Restart self"] -command restart_self] \
-in .endbuttons -side right
- # ppack [ttk::button .t -text [__ "Restart tlmgr"] \
- # -command {close_tlmgr; start_tlmgr}] \
- # -in .endbuttons -side right
+ ppack [ttk::button .t -text [__ "Restart tlmgr"] \
+ -command {close_tlmgr; start_tlmgr}] \
+ -in .endbuttons -side right
ttk::button .showlogs -text [__ "Show logs"] -command show_logs
ppack .showlogs -in .endbuttons -side right
@@ -2097,8 +2103,8 @@ proc populate_main {} {
# right frame
ppack [ttk::frame .topfr] -in .topf -side right -anchor ne
- pack [ttk::label .topfr.linfra -text "some"] -side top -anchor e
- pack [ttk::label .topfr.lshell -text "more"] -side top -anchor e
+ pack [ttk::label .topfr.linfra] -side top -anchor e
+ pack [ttk::label .topfr.lshell] -side top -anchor e
pack [ttk::separator .sp -orient horizontal] \
-in .bg -side top -fill x -pady 6
diff --git a/Build/source/texk/texlive/linked_scripts/xindex/xindex.lua b/Build/source/texk/texlive/linked_scripts/xindex/xindex.lua
index 4314d1d6fe0..77804a94dad 100755
--- a/Build/source/texk/texlive/linked_scripts/xindex/xindex.lua
+++ b/Build/source/texk/texlive/linked_scripts/xindex/xindex.lua
@@ -8,7 +8,7 @@
-----------------------------------------------------------------------
xindex = xindex or { }
- local version = 0.08
+ local version = 0.09
xindex.version = version
--xindex.self = "xindex"