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"] [(decorative) "Geneva"]
[(modern) "Monaco"] [(modern) "Monaco"]
[(swiss) "Helvetica"] [(swiss) "Helvetica"]
[(script) "Geneva"] [(script) "Zaph Chancery"]
[(symbol) "Symbol"])] [(symbol) "Symbol"])]
[(macosx) [(macosx)
(case family (case family
[(system) "systemfont"] [(system) "systemfont"]
[(default) "applicationfont"] [(default) "applicationfont"]
[(roman) "Times"] [(roman) "Times"]
[(decorative) "Lucida Grande"] [(decorative) "Geneva"]
[(modern) "Monaco"] [(modern) "Courier New"]
[(swiss) "Helvetica"] [(swiss) "Helvetica"]
[(script) "Geneva"] [(script) "Apple Chancery"]
[(symbol) "Symbol"])])) [(symbol) "Symbol"])]))
(define (send-message-to-window x y m) (define (send-message-to-window x y m)