Posted to tcl by emiliano at Wed May 24 14:10:07 GMT 2023view pretty

Index: apps/tkchat/tkchat_newroster.tcl
==================================================================
--- apps/tkchat/tkchat_newroster.tcl
+++ apps/tkchat/tkchat_newroster.tcl
@@ -53,11 +53,13 @@
     $cl tag configure SUBTITLE \
         -font TkHeadingFont \
         -background gray85
 
     set indent    0
-    set rowheight 22
+    # determine the row height
+    set height [expr { int( 1.2 * [font metrics TkDefaultFont -linespace]) }]
+    set rowheight [tk::ScaleNum $height]
     foreach theme [ttk::style theme names] {
         ttk::style theme settings $theme {
             ttk::style configure Roster.Treeview \
                 -indent $indent \
                 -rowheight $rowheight