From 3742a9da8fb32b1750e6e99b5db70c0279df5770 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 4 Jun 2012 04:15:19 +0800 Subject: [PATCH] adjust font-substitution hack for Mac OS X --- collects/racket/draw/private/font.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/racket/draw/private/font.rkt b/collects/racket/draw/private/font.rkt index cdac4d14d6..ae9e9e464e 100644 --- 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