From 418a3cd83b2bde6fc839d4dd2dd9bcd8339a6e65 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 25 Apr 2012 18:48:26 -0600 Subject: [PATCH] racket/draw cocoa: adjust default 'script font Also, adjust the way a font is converted for control labels to strp away Pango descriptions. --- collects/mred/private/wx/cocoa/font.rkt | 3 ++- collects/racket/draw/private/font-dir.rkt | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/cocoa/font.rkt b/collects/mred/private/wx/cocoa/font.rkt index a448191121..a27f164261 100644 --- a/collects/mred/private/wx/cocoa/font.rkt +++ b/collects/mred/private/wx/cocoa/font.rkt @@ -26,7 +26,8 @@ find-family-default-font-id (send f get-family)) weight - style))]) + style))] + [name (regexp-replace #rx",.*" name "")]) (atomically (with-autorelease (let ([f (tell NSFont diff --git a/collects/racket/draw/private/font-dir.rkt b/collects/racket/draw/private/font-dir.rkt index 1529d2215b..1ed071713f 100644 --- a/collects/racket/draw/private/font-dir.rkt +++ b/collects/racket/draw/private/font-dir.rkt @@ -60,7 +60,7 @@ [(windows) "Arial"] [else "Helvetica"])] [(script) (case (system-type) - [(macosx) "Apple Chancery"] + [(macosx) "Apple Chancery, Italic"] [else "Chancery"])] [(symbol) "Symbol"] [else (case (system-type)