From 26dd281012b1381f695a86bbe079ed4e4794f302 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Aug 2010 11:06:02 -0600 Subject: [PATCH] manual font substitution for Mac OS X original commit: ff57455150f99ea87ce4702acc284e4be119145d --- collects/mred/private/fontdialog.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/fontdialog.rkt b/collects/mred/private/fontdialog.rkt index 9e58232e..5ba477a5 100644 --- a/collects/mred/private/fontdialog.rkt +++ b/collects/mred/private/fontdialog.rkt @@ -52,7 +52,9 @@ [sip (make-object check-box% "Size in Pixels" p4 refresh-sample)] [sym (make-object check-box% "Map as Symbol" p4 refresh-sample)] [size (make-object slider% "Size:" 4 127 p2 refresh-sample 12)] - [sample (make-object text-field% "Sample" f void "The quick brown fox jumped over the lazy dog" '(multiple))] + [sample (make-object text-field% "Sample" f void + "The quick brown fox jumped over the lazy dog\n(\u3bb (x) x)\n" + '(multiple))] [edit (send sample get-editor)] [done (lambda (ok) (lambda (b e) (set! ok? ok) (send f show #f)))] [get-font (lambda () (let ([face (send face get-string-selection)])