summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/tltcl/tltcl.tcl10
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]}
}
-