suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cocoa & win32: Courier New as 'modern font

Browse Source
This commit is contained in:
Matthew Flatt 2010-10-24 09:32:28 -06:00
parent 2cebc60eca
commit 6a897ba36c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/draw/font-dir.rkt
View File

@ -48,7 +48,9 @@
(define/private (default-font s) (define/private (default-font s)
(case s (case s
[(modern) "Monospace"] [(modern) (case (system-type)
[(windows macosx) "Courier New"]
[else "Monospace"])]
[(roman) (case (system-type) [(roman) (case (system-type)
[(windows) "Times New Roman"] [(windows) "Times New Roman"]
[(macosx) "Times"] [(macosx) "Times"]