summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-04-26 03:00:32 +0000
committerNorbert Preining <norbert@preining.info>2021-04-26 03:00:32 +0000
commit03117c94362b2fed2fd4aabe50f3106fbf1e0a70 (patch)
treee9c379ff69ea790a0059725aebd5048e8d773e45 /systems/texlive/tlnet/tlpkg/tltcl
parent31672400f6cb00d38c0e707da2640589b6d5c523 (diff)
CTAN sync 202104260300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl8
1 files changed, 5 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
index af9edbceef..a02bdd25eb 100644
--- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
+++ b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl
@@ -27,7 +27,7 @@ set ::perlpid 0
# 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 @@ font create titlefont
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 @@ proc redo_fonts {} {
-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 @@ proc dirbrowser2widget {w} {
# 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 {