diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/tltcl/tltcl.tcl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/tltcl/tltcl.tcl b/Master/tlpkg/tltcl/tltcl.tcl index 4ed73859cb4..af9edbceef8 100644 --- a/Master/tlpkg/tltcl/tltcl.tcl +++ b/Master/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]} } - |