From 9acab4ad17e592586f47519efa994d292bf77f1e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 28 Mar 2011 10:44:40 -0600
Subject: [PATCH] win32: 'swiss font family maps to "Arial" instead of
 "Helvetica"

---
 collects/racket/draw/private/font-dir.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/racket/draw/private/font-dir.rkt b/collects/racket/draw/private/font-dir.rkt
index dc5fec724f..1529d2215b 100644
--- a/collects/racket/draw/private/font-dir.rkt
+++ b/collects/racket/draw/private/font-dir.rkt
@@ -56,7 +56,9 @@
                    [(windows) "Times New Roman"]
                    [(macosx) "Times"]
                    [else "Serif"])]
-        [(decorative swiss) "Helvetica"]
+        [(decorative swiss) (case (system-type)
+                              [(windows) "Arial"]
+                              [else "Helvetica"])]
         [(script) (case (system-type)
                     [(macosx) "Apple Chancery"]
                     [else "Chancery"])]