original commit: 21995875f17b3339d01d2c6b58915cfc650325ef
This commit is contained in:
Matthew Flatt 2003-06-05 18:01:33 +00:00
parent 2eed73644a
commit f88efc2d0f

View File

@ -7210,6 +7210,7 @@
(let-values ([(w h d a) (send dc get-text-extent string font)])
(values (inexact->exact w) (inexact->exact h)))])))
(define x-has-xft? 'unknown)
(define mswin-system #f)
(define mswin-default #f)
(define (look-for-font name)
@ -7222,15 +7223,28 @@
(raise-type-error 'get-default-face "family symbol" family))
(case (system-type)
[(unix)
(case family
[(system) "-b&h-lucida"]
[(default) "-b&h-lucida"]
[(roman) "-adobe-times"]
[(decorative) "-adobe-helvetica"]
[(modern) "-adobe-courier"]
[(swiss) "-b&h-lucida"]
[(script) "-itc-zapfchancery"]
[(symbol) "-adobe-symbol"])]
;; Detect Xft by looking for a font with a space in front of its name:
(when (eq? x-has-xft? 'unknown)
(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"]
[(decorative) " Nimbus Sans L"]
[(modern) " Luxi Mono"]
[(swiss) " Nimbus Sans L"]
[(script) " URW Chancery L"]
[(symbol) "-adobe-symbol"])
(case family
[(system) "-b&h-lucida"]
[(default) "-b&h-lucida"]
[(roman) "-adobe-times"]
[(decorative) "-adobe-helvetica"]
[(modern) "-adobe-courier"]
[(swiss) "-b&h-lucida"]
[(script) "-itc-zapfchancery"]
[(symbol) "-adobe-symbol"]))]
[(windows)
(case family
[(system)