diff options
Diffstat (limited to 'library/ttk/fonts.tcl')
| -rw-r--r-- | library/ttk/fonts.tcl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/library/ttk/fonts.tcl b/library/ttk/fonts.tcl index 52298c5..44de6c3 100644 --- a/library/ttk/fonts.tcl +++ b/library/ttk/fonts.tcl @@ -82,7 +82,7 @@ switch -- [tk windowingsystem] { set F(family) "MS Sans Serif" } } else { - if {[lsearch -exact [font families] Tahoma] != -1} { + if {"Tahoma" in [font families]} { set F(family) "Tahoma" } else { set F(family) "MS Sans Serif" @@ -122,9 +122,8 @@ switch -- [tk windowingsystem] { font configure TkMenuFont -family $F(family) -size $F(menusize) font configure TkSmallCaptionFont -family $F(family) -size $F(labelsize) } - default - - x11 { - if {![catch {tk::pkgconfig get fontsystem} F(fs)] && $F(fs) eq "xft"} { + default { + if {(![catch {tk::pkgconfig get fontsystem} F(fs)]) && ($F(fs) eq "xft")} { set F(family) "sans-serif" set F(fixed) "monospace" } else { |