racket/draw win32: change default font for 'script

2012-04-25 18:56:42 -06:00 · 2012-04-25 18:56:42 -06:00 · d6a57e073c
commit d6a57e073c
parent 9c025210aa
1 changed files with 1 additions and 0 deletions
--- a/collects/racket/draw/private/font-dir.rkt
+++ b/collects/racket/draw/private/font-dir.rkt
@ -61,6 +61,7 @@
                              [else "Helvetica"])]
        [(script) (case (system-type)
                    [(macosx) "Apple Chancery, Italic"]
+		    [(windows) "Palatino Linotype, Italic"]
                    [else "Chancery"])]
        [(symbol) "Symbol"]
        [else (case (system-type)