summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tltcl
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-04-13 03:00:56 +0000
committerNorbert Preining <norbert@preining.info>2021-04-13 03:00:56 +0000
commit32940266507ccd0c4ba129c61e8932734370e283 (patch)
treeb26a8b13953b035ea6e12d2d46ad0488c9636d06 /systems/texlive/tlnet/tlpkg/tltcl
parent72c29070e5c574da1a734cb90214754b2f3aa698 (diff)
CTAN sync 202104130300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl')
-rw-r--r--systems/texlive/tlnet/tlpkg/tltcl/tltcl.tcl10
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]}
}
-