original commit: 9792a9a2843d9c2e388070b27c9ae5c647b699b5
This commit is contained in:
Matthew Flatt 2003-02-24 20:05:10 +00:00
parent 3fe60f0a6c
commit 6adf352ebf

View File

@ -6993,17 +6993,17 @@
[(decorative) "Geneva"]
[(modern) "Monaco"]
[(swiss) "Helvetica"]
[(script) "Geneva"]
[(script) "Zaph Chancery"]
[(symbol) "Symbol"])]
[(macosx)
(case family
[(system) "systemfont"]
[(default) "applicationfont"]
[(roman) "Times"]
[(decorative) "Lucida Grande"]
[(modern) "Monaco"]
[(decorative) "Geneva"]
[(modern) "Courier New"]
[(swiss) "Helvetica"]
[(script) "Geneva"]
[(script) "Apple Chancery"]
[(symbol) "Symbol"])]))
(define (send-message-to-window x y m)