adjust font-substitution hack for Mac OS X

2012-06-04 04:15:19 +08:00 · 2012-06-04 04:15:19 +08:00 · 3742a9da8f
commit 3742a9da8f
parent 42db3a7516
1 changed files with 2 additions and 2 deletions
--- a/collects/racket/draw/private/font.rkt
+++ b/collects/racket/draw/private/font.rkt
@ -55,8 +55,8 @@
                       ;; failed to find previously
                       null]
                      [else
-                       ;; Hack: prefer Lucida Grande
-                       (cons "Lucida Grande" (get-face-list))])))])
+                       ;; Hack: prefer a particular font for Mac OS X
+                       (cons "Arial Unicode MS" (get-face-list))])))])
     (let ([desc (send (make-object font%
                                    (send font get-point-size)
                                    face