diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-13 03:00:56 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-13 03:00:56 +0000 |
commit | 32940266507ccd0c4ba129c61e8932734370e283 (patch) | |
tree | b26a8b13953b035ea6e12d2d46ad0488c9636d06 /systems/texlive/tlnet/tlpkg/tltcl | |
parent | 72c29070e5c574da1a734cb90214754b2f3aa698 (diff) |
CTAN sync 202104130300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl index 4ed73859cb..af9edbceef 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl @@ -450,6 +450,11 @@ proc redo_fonts {} { font configure titlefont {*}[font configure TkDefaultFont] font configure titlefont -weight bold \ -size [expr {round(1.5 * [font actual titlefont -size])}] + + if $::plain_unix { + ttk::style configure TCombobox -arrowsize [expr {1.5*$::cw}] + ttk::style configure Item -indicatorsize [expr {1.5*$::cw}] + } } # initialize scaling factor @@ -807,9 +812,9 @@ if $::plain_unix { # from Geometric Shapes, 25a0-25ff set ::chk0 \u25a1 - set ::chk1 \u25a0 + set ::chk1 \u25a3 set ::rad0 \u25cb - set ::rad1 \u25cf + set ::rad1 \u25c9 # layouts copied from default theme, with indicator removed ttk::style layout TCheckbutton "Checkbutton.padding -sticky nswe -children {Checkbutton.focus -side left -sticky w -children {Checkbutton.label -sticky nswe}}" @@ -860,4 +865,3 @@ if $::plain_unix { bind TRadiobutton <Unmap> \ {+trace remove variable [%W cget -variable] write [list tlupdate_radio %W]} } - |