From 5da12c4b996bc0a969f1f02590e87e6577323743 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Wed, 13 Oct 2021 18:59:56 +0000 Subject: Windows: new menu for managing 64-bit binaries git-svn-id: svn://tug.org/texlive/trunk@60747 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/tltcl') 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"} { -- cgit v1.2.3