Posted to tcl by emiliano at Wed May 24 14:10:07 GMT 2023view raw
- 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
-