From b5e83c238e4a464dee0a9207c74c4213e7bbebae Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 25 Apr 2021 09:10:39 +0000 Subject: http -> https git-svn-id: svn://tug.org/texlive/trunk@58984 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/tltcl.tcl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/tltcl') diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index af9edbceef8..a02bdd25eb1 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/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 { -- cgit v1.2.3