texlive[58984] Master/tlpkg/tltcl/tltcl.tcl: http -> https

[commits+siepo at tug.org]

Revision: 58984
          http://tug.org/svn/texlive?view=revision&revision=58984
Author:   siepo
Date:     2021-04-25 11:10:39 +0200 (Sun, 25 Apr 2021)
Log Message:
-----------
http -> https

Modified Paths:
--------------
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2021-04-24 23:49:11 UTC (rev 58983)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2021-04-25 09:10:39 UTC (rev 58984)
@@ -27,7 +27,7 @@
 
 # mirrors
 
-set any_mirror "http://mirror.ctan.org/systems/texlive/tlnet"
+set any_mirror "https://mirror.ctan.org/systems/texlive/tlnet"
 
 # turn name into a string suitable for a widget name
 proc mangle_name {n} {
@@ -413,7 +413,7 @@
 proc redo_fonts {} {
 
   # note that ttk styles refer to the above symbolic font names
-  # and generally do not define fonts themselves
+  # and do not define fonts themselves
 
   foreach f $::dflfonts {
     font configure $f -size [expr { round($::oldsize($f)*$::tkfontscale)}]
@@ -452,6 +452,8 @@
       -size [expr {round(1.5 * [font actual titlefont -size])}]
 
   if $::plain_unix {
+    ttk::setTheme default ; # or classic.
+    # the settings below do not work right with clam and alt themes.
     ttk::style configure TCombobox -arrowsize [expr {1.5*$::cw}]
     ttk::style configure Item -indicatorsize [expr {1.5*$::cw}]
   }
@@ -803,7 +805,7 @@
 # a unicode symbol and a unicode wide space to the text label.
 
 # The combobox down arrow and the treeview triangles (directory browser)
-# are still unscaled.
+# are scaled by normal style options at the end of redo_fonts.
 
 if $::plain_unix {