original commit: b6bd3bcf8811403be88795286371e2c99032844c
This commit is contained in:
Matthew Flatt 2003-06-05 21:10:43 +00:00
parent f88efc2d0f
commit 506aebaced

View File

@ -7228,11 +7228,11 @@
(set! x-has-xft? (ormap (lambda (s) (regexp-match #rx"^ " s)) (wx:get-face-list))))
(if x-has-xft?
(case family
[(system) " Luxi Sans"]
[(default) " Luxi Sans"]
[(roman) " Luxi Serif"]
[(system) " Sans"]
[(default) " Sans"]
[(roman) " Serif"]
[(decorative) " Nimbus Sans L"]
[(modern) " Luxi Mono"]
[(modern) " Monospace"]
[(swiss) " Nimbus Sans L"]
[(script) " URW Chancery L"]
[(symbol) "-adobe-symbol"])