From f54d066d3c34d4bd98feb5239fd90f36e52d49f5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 29 Nov 1999 21:36:37 +0000
Subject: [PATCH] .

original commit: 585e32fb45b28980a907a650b7b817c5606f23bc
---
 src/mred/wrap/mred.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 59b8e290..e930e611 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -2388,10 +2388,11 @@
   
 (define (font->delta f)
   (define d (make-object wx:style-delta%))
-  (let ([v (send f get-face)])
+  (let ([v (send f get-face)]
+	[m (send f get-family)])
     (if v
-	(send d set-delta-face v)
-	(send d set-delta 'change-family (send f get-family))))
+	(send d set-delta-face v m)
+	(send d set-delta 'change-family m)))
   (send d set-delta 'change-size (send f get-point-size))
   (send d set-delta 'change-style (send f get-style))
   (send d set-delta 'change-weight (send f get-weight))
@@ -4920,7 +4921,7 @@
 		      (lambda (e)
 			(send e change-style (make-object wx:style-delta% 'change-family f)))))
 		'("Standard" "Decorative" "Roman" "Script" "Swiss" "Fixed" "Symbol")
-		'(default decorative roman script swiss fixed symbol))
+		'(default decorative roman script swiss modern symbol))
       (mk-sep family)
       (mk "Choose..." family (lambda (e) (let ([f (get-font-from-user)])
 					   (when f