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

adjust font-substitution hack for Mac OS X

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-04 04:15:19 +08:00
parent 42db3a7516
commit 3742a9da8f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/draw/private/font.rkt
View File

@ -55,8 +55,8 @@
;; failed to find previously ;; failed to find previously
null] null]
[else [else
;; Hack: prefer Lucida Grande ;; Hack: prefer a particular font for Mac OS X
(cons "Lucida Grande" (get-face-list))])))]) (cons "Arial Unicode MS" (get-face-list))])))])
(let ([desc (send (make-object font% (let ([desc (send (make-object font%
(send font get-point-size) (send font get-point-size)
face face