win32: 'swiss font family maps to "Arial" instead of "Helvetica"

2011-03-28 10:44:40 -06:00 · 2011-03-28 10:44:40 -06:00 · 9acab4ad17
commit 9acab4ad17
parent 789081e2c3
1 changed files with 3 additions and 1 deletions
--- 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"])]