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