gitk: Use symbolic font names "sans" and "monospace" when available

diff --git a/gitk b/gitk
index 5e3ad158837c6878eb08b0307da126bb1e8c5da9..36a48d54cd64706c4bba9b8721e5d307848236a2 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -11521,6 +11521,11 @@ if {[tk windowingsystem] eq "aqua"} {
     set mainfont {{Lucida Grande} 9}
     set textfont {Monaco 9}
     set uifont {{Lucida Grande} 9 bold}
+} elseif {![catch {::tk::pkgconfig get fontsystem} xft] && $xft eq "xft"} {
+    # fontconfig!
+    set mainfont {sans 9}
+    set textfont {monospace 9}
+    set uifont {sans 9 bold}
 } else {
     set mainfont {Helvetica 9}
     set textfont {Courier 9}