texlive[58849] Master/tlpkg/tltcl/tltcl.tcl: tltcl.tcl: further

[commits+siepo at tug.org]

Revision: 58849
          http://tug.org/svn/texlive?view=revision&revision=58849
Author:   siepo
Date:     2021-04-12 13:07:52 +0200 (Mon, 12 Apr 2021)
Log Message:
-----------
tltcl.tcl: further refinements to scaling support on Linux

Modified Paths:
--------------
    trunk/Master/tlpkg/tltcl/tltcl.tcl

Modified: trunk/Master/tlpkg/tltcl/tltcl.tcl
===================================================================
--- trunk/Master/tlpkg/tltcl/tltcl.tcl	2021-04-12 01:00:29 UTC (rev 58848)
+++ trunk/Master/tlpkg/tltcl/tltcl.tcl	2021-04-12 11:07:52 UTC (rev 58849)
@@ -450,6 +450,11 @@
   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 @@
 
   # 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 @@
   bind TRadiobutton <Unmap> \
     {+trace remove variable [%W cget -variable] write [list tlupdate_radio %W]}
 }
-