summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2021-04-12 11:07:52 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2021-04-12 11:07:52 +0000
commit9568d4a45727d6db9ba6e5e2c6a3b0fad1ee4c22 (patch)
tree569735ea93121221b65793768a87c016a1c27fbc
parent7e248bbadd8770745545f248c85e30c7f9c0fe88 (diff)
tltcl.tcl: further refinements to scaling support on Linux
git-svn-id: svn://tug.org/texlive/trunk@58849 c570f23f-e606-0410-a88d-b1316a301751
-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]}
}
-