suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: b6bd3bcf8811403be88795286371e2c99032844c
This commit is contained in:
Matthew Flatt 2003-06-05 21:10:43 +00:00
parent f88efc2d0f
commit 506aebaced
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/mred.ss
View File

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