summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-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))"]