summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tltcl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-10-13 18:59:56 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-10-13 18:59:56 +0000
commit5da12c4b996bc0a969f1f02590e87e6577323743 (patch)
tree92bf69afb32ee696bb913bc9061802e71af4d3cb /Master/tlpkg/tltcl
parent60663c90ccdc14f3de02623c4bac7c4c1bb1c70e (diff)
Windows: new menu for managing 64-bit binaries
git-svn-id: svn://tug.org/texlive/trunk@60747 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl
index a02bdd25eb1..ed5c01cdcc7 100644
--- a/Master/tlpkg/tltcl/tltcl.tcl
+++ b/Master/tlpkg/tltcl/tltcl.tcl
@@ -155,7 +155,7 @@ proc mirror_menu {wnd cmd} {
}
proc possible_repository {s} {
- if [regexp {^(https?|ftp):\/\/.+} $s] {return 1}
+ if [regexp {^(https?|ftp|scp|ssh):\/\/.+} $s] {return 1}
if {[string first {file://} $s] == 0} {set s [string range $s 7 end]}
if [file isdirectory [file join $s "archive"]] {return 1}
if [file isdirectory [file join $s "texmf-dist/web2c"]] {return 1}
@@ -647,7 +647,8 @@ proc dir_writable {d} {
return 0
}
-# unix: choose_dir replacing native directory browser
+# unix: choose_dir replacing native directory browser.
+# the native FILE browser is ok, though.
if {$::tcl_platform(platform) eq "unix"} {