...

original commit: d23beec050e188049f736a5d46a2902db600a5a1
2001-11-05 07:23:51 +00:00 · 2001-11-05 07:23:51 +00:00 · 241eae015d
commit 241eae015d
parent b8c8a65768
1 changed files with 11 additions and 1 deletions
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@ -5868,7 +5868,7 @@
       [(swiss) "Arial"]
       [(script) "Arial"]
       [(symbol) "Symbol"])]
-    [(macos macosx)
+    [(macos)
     (case family
       [(system) "systemfont"]
       [(default) "applicationfont"]
@ -5877,6 +5877,16 @@
       [(modern) "Monaco"]
       [(swiss) "Helvetica"]
       [(script) "Geneva"]
+       [(symbol) "Symbol"])]
+    [(macosx)
+     (case family
+       [(system) "systemfont"]
+       [(default) "applicationfont"]
+       [(roman) "Times"]
+       [(decorative) "Lucida Grande"]
+       [(modern) "Monaco"]
+       [(swiss) "Helvetica"]
+       [(script) "Geneva"]
       [(symbol) "Symbol"])]))

 (define (send-message-to-window x y m)