diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-02-19 20:49:48 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2023-02-19 20:49:48 +0000 |
| commit | 9c8377ee047747b61cf8242b3a072efee1c772a6 (patch) | |
| tree | 6a70a4279b458244b06e59c100bd5b104a6b0d54 /Master/texmf-dist/scripts/tlshell | |
| parent | a5648bd0084547e704f0a999a826f40552942418 (diff) | |
32-bit => 64-bit for windows; second installment
git-svn-id: svn://tug.org/texlive/trunk@65932 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/tlshell')
| -rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index a86ecdf33da..02bd6a2bd40 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -1,10 +1,6 @@ -#!/bin/sh -# next line ignored by wish but not by sh \ -TK_SILENCE_DEPRECATION=1 exec wish "$0" -- "$@" -# The above environment variable is set to suppress -# a warning message under MacOS Catalina and Big Sur +#!/usr/bin/env wish -# Copyright 2017-2022 Siep Kroonenberg +# Copyright 2017-2023 Siep Kroonenberg # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -357,7 +353,9 @@ proc selective_dis_enable {} { } # 64-bit windows - if {$::tcl_platform(platform) eq "windows" && $::wprocessor eq "AMD64"} { + # we disable this menu, but we may possibly resurrect it later + # for windows on arm support; therefore 'if {0 && ...} + if {0 && $::tcl_platform(platform) eq "windows" && $::wprocessor eq "AMD64"} { dis_enable_w64 } }; # selective_dis_enable @@ -939,7 +937,7 @@ proc get_packages_info_remote {} { unset -nocomplain ::loaded track_err set catv "rcat-version" - if {[dict get $::pkgs texlive.infra localrev] < 56458} { set catv "cat-version" } + if [catch {run_cmd \ "info --data name,remoterev,$catv,category,shortdesc"}] { do_debug [get_stacktrace] @@ -2350,6 +2348,7 @@ Please configure a valid repository" $::repos(main)] # with 'unzip -T', but this can only be done AFTER downloading. # See also tcl commands 'file mtime', and 'clock scan' +if 0 { # $::wprocessor will later decide whether a w64 menu will be created. if {$::tcl_platform(platform) eq "windows"} { set ::wprocessor $::env(PROCESSOR_ARCHITECTURE) @@ -2630,7 +2629,7 @@ proc add_or_update_w64 {lr} { update idletasks return 1 } - +}; # if 0 ##### main window ##################################################### proc populate_main {} { @@ -2710,7 +2709,7 @@ proc populate_main {} { .mn.opt add command -label "[__ "Platforms"] ..." -command platforms_select } - if {$::tcl_platform(platform) eq "windows" && $::wprocessor eq "AMD64"} { + if {0 && $::tcl_platform(platform) eq "windows" && $::wprocessor eq "AMD64"} { .mn add cascade -label "64-bit Windows" -menu .mn.w64 menu .mn.w64 set inx -1 |