summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-02-17 12:05:19 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-02-17 12:05:19 +0000
commit5167e0053e114c7c8579ea6f84d4a1ea979f9123 (patch)
tree9b7e2e3dc2f028cc8055d468f6053b03d83cca36 /Master/tlpkg/installer
parentcd0fbfe15103475d3e937a6c9b90dcd393cbc444 (diff)
Localization
git-svn-id: svn://tug.org/texlive/trunk@50042 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl24
1 files changed, 23 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index 8812a14101e..a2b764ac85c 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -387,6 +387,9 @@ proc commit_root {} {
set ::vars(TEXDIR) [forward_slashify [.tltd.path_l cget -text]]
set ::vars(TEXMFSYSVAR) "$::vars(TEXDIR)/texmf-var"
set ::vars(TEXMFSYSCONFIG) "$::vars(TEXDIR)/texmf-config"
+ if [winfo exists .tspvl] {
+ .tspvl configure -text [file join $::vars(TEXDIR) "texmf-dist"]
+ }
commit_canonical_local
if {$::vars(instopt_portable)} reset_personal_dirs
@@ -555,6 +558,12 @@ proc toggle_port {} {
set ::vars(TEXMFCONFIG) $::vars(TEXMFSYSCONFIG)
.tlocb state disabled
.thomeb state disabled
+ if $::alltrees {
+ #.tsysvb state disabled
+ #.tsyscb state disabled
+ .tvb state disabled
+ .tcb state disabled
+ }
if {$::tcl_platform(platform) eq "windows"} {
# adjust_path
set ::vars(instopt_adjustpath) 0
@@ -586,6 +595,12 @@ proc toggle_port {} {
set ::vars(TEXMFCONFIG) "~/.texlive${::release_year}/texmf-config"
.tlocb state !disabled
.thomeb state !disabled
+ if $::alltrees {
+ #.tsysvb state !disabled
+ #.tsyscb state !disabled
+ .tvb state !disabled
+ .tcb state !disabled
+ }
if {$::tcl_platform(platform) eq "windows"} {
# adjust_path
set ::vars(instopt_adjustpath) 1
@@ -1146,12 +1161,19 @@ proc run_menu {} {
if $::advanced {
if $::alltrees {
incr rw
+ pgrid [ttk::label .tspll -text [__ "support tree"]] \
+ -in .dirf -row $rw -column 0 -sticky nw
+ pgrid [ttk::label .tspvl] -in .dirf -row $rw -column 1 -sticky nw
+ .tspvl configure -text [file join $::vars(TEXDIR) "texmf-dist"]
+
+ incr rw
pgrid [ttk::label .tsysvll -text "TEXMFSYSVAR"] \
-in .dirf -row $rw -column 0 -sticky nw
pgrid [ttk::label .tsysvvl -textvariable ::vars(TEXMFSYSVAR)] \
-in .dirf -row $rw -column 1 -sticky nw
ttk::button .tsysvb -text [__ "Change"] -command {edit_dir "TEXMFSYSVAR"}
pgrid .tsysvb -in .dirf -row $rw -column 2 -sticky new
+
incr rw
pgrid [ttk::label .tsyscll -text "TEXMFSYSCONFIG"] \
-in .dirf -row $rw -column 0 -sticky nw
@@ -1227,7 +1249,7 @@ proc run_menu {} {
# current platform
incr rw
ttk::label .binl0 \
- -text "Current platform:"
+ -text [__ "Current platform:"]
pgrid .binl0 -in .platf -row $rw -column 0 -sticky w
ttk::label .binl1 \
-text [__ "$::bin_descs($::vars(this_platform))"]