From 9568d4a45727d6db9ba6e5e2c6a3b0fad1ee4c22 Mon Sep 17 00:00:00 2001
From: Siep Kroonenberg <siepo@cybercomm.nl>
Date: Mon, 12 Apr 2021 11:07:52 +0000
Subject: tltcl.tcl: further refinements to scaling support on Linux

git-svn-id: svn://tug.org/texlive/trunk@58849 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/tltcl/tltcl.tcl | 10 +++++++---
 1 file 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]}
 }
-
-- 
cgit v1.2.3