summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-04-03 20:34:55 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-04-03 20:34:55 +0000
commit443c3ad0447b1bdec301bfbc0397b5290b2ea9b3 (patch)
treeb54dbd26bcaa0273272c514525c56bfea0d837ec /Master
parent6944237dca480104ac395122c22f0a02950c8ce0 (diff)
Writability test at start; display TL root
git-svn-id: svn://tug.org/texlive/trunk@50726 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl13
1 files changed, 12 insertions, 1 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
index e0f2497c422..5254aaa2626 100755
--- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl
+++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
@@ -29,8 +29,9 @@ if {$::tcl_platform(platform) ne "windows"} {
unset dirs
}
-# declarations and utilities shared with install-tl-gui.tcl
set ::instroot [exec kpsewhich -var-value=TEXMFROOT]
+
+# declarations and utilities shared with install-tl-gui.tcl
source [file join $::instroot "tlpkg" "tltcl" "tltcl.tcl"]
# now is a good time to ask tlmgr for the _TL_ name of our platform
@@ -2091,6 +2092,8 @@ proc populate_main {} {
# right frame
ppack [ttk::frame .topfr] -in .topf -side right -anchor ne
+ pack [ttk::label .topfr.lroot] -side top -anchor e
+ .topfr.lroot configure -text [__ "Root at %s" $::instroot]
pack [ttk::label .topfr.linfra] -side top -anchor e
pack [ttk::label .topfr.lshell] -side top -anchor e
@@ -2284,6 +2287,14 @@ proc initialize {} {
populate_main
+ # testing writablilty earlier led to sizing problems
+ if {! [file writable $::instroot]} {
+ set ans [tk_messageBox -type yesno -icon warning -message \
+ [__ "%s is not writable. You can probably not do much.
+ Are you sure you want to continue?" $::instroot]]
+ if {$ans ne "yes"} {exit}
+ }
+
start_tlmgr
get_repos_from_tlmgr
.topfl.lrepos configure -text [print_repos]