texlive[50568] Master/tlpkg/installer/install-tl-gui.tcl: More... no

[commits+siepo at tug.org]

Revision: 50568
          http://tug.org/svn/texlive?view=revision&revision=50568
Author:   siepo
Date:     2019-03-24 21:57:52 +0100 (Sun, 24 Mar 2019)
Log Message:
-----------
More... no longer resets TEXMFHOME; no lion for gui profile install

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-tl-gui.tcl

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2019-03-24 17:24:52 UTC (rev 50567)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2019-03-24 20:57:52 UTC (rev 50568)
@@ -587,7 +587,7 @@
   }
 }
 
-proc port_dis_or_activate {} {
+proc port_dis_or_activate {toggled} {
   if {!$::advanced} return
   set yn [yes_no $::vars(instopt_portable)]
   .dirportvl configure -text $yn
@@ -626,9 +626,11 @@
       .pathl configure -foreground $::gry
     }
   } else {
-    set ::vars(TEXMFHOME) "~/texmf"
-    set ::vars(TEXMFVAR) "~/.texlive${::release_year}/texmf-var"
-    set ::vars(TEXMFCONFIG) "~/.texlive${::release_year}/texmf-config"
+    if $toggled {
+      set ::vars(TEXMFHOME) "~/texmf"
+      set ::vars(TEXMFVAR) "~/.texlive${::release_year}/texmf-var"
+      set ::vars(TEXMFCONFIG) "~/.texlive${::release_year}/texmf-config"
+    } ; # else leave alone
     #.tlocb state !disabled
     .thomeb state !disabled
     if $::alltrees {
@@ -670,7 +672,7 @@
 
 proc toggle_port {} {
   set ::vars(instopt_portable) [expr {!$::vars(instopt_portable)}]
-  port_dis_or_activate
+  port_dis_or_activate 1
   commit_canonical_local
 }; # toggle_port
 
@@ -1506,7 +1508,7 @@
       -in $curf -row $rw -column 2 -sticky e
   }
 
-  if $::advanced port_dis_or_activate
+  if $::advanced {port_dis_or_activate 0}
   show_stats
   wm overrideredirect . 0
   wm attributes . -topmost
@@ -1714,7 +1716,21 @@
   wm title . [__ "TeX Live Installer"]
   wm protocol . WM_DELETE_WINDOW whataboutclose
 
-  make_splash
+  # check for profile argument whether to put up a splash screen
+  set i 0
+  set do_splash 1
+  while {$i < $::argc} {
+    set p [lindex $::argv $i]
+    incr i
+    if {[string range $p 0 7] eq "-profile" || \
+            [string range $p 0 8] eq "--profile"} {
+      set do_splash 0
+      break
+    }
+  }
+  unset i
+  if $do_splash make_splash
+  unset do_splash
 
   # start install-tl-[tcl] via a pipe.
   # the command must be a string, not a list.