From c1dade6f7e73310b8224d2f92320fd8d74e6bd55 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 6 Oct 2003 16:31:27 +0000 Subject: [PATCH] . original commit: a180d01faba0e7b7b1bf260f9a8e9901b2806c9c --- collects/mred/mred.ss | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 76684e17..d2da7b2f 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -6754,13 +6754,17 @@ [underlined (make-object check-box% "Underlined" p4 refresh-sample)] [smoothing (make-object choice% "Smoothing:" '("Default" "Some" "Full" "None") p4 refresh-sample)] [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))] [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)]) (and face - (make-object wx:font% (send size get-value) face 'default + (make-object wx:font% (send size get-value) face + (if (send sym get-value) + 'symbol + 'default) (case (send style get-selection) [(0) 'normal] [(1) 'italic] [(2) 'slant]) (case (send weight get-selection) [(0) 'normal] [(1) 'bold] [(2) 'light]) (send underlined get-value) @@ -7278,7 +7282,7 @@ [(modern) " Monospace"] [(swiss) " Nimbus Sans L"] [(script) " URW Chancery L"] - [(symbol) "-adobe-symbol"]) + [(symbol) " Standard Symbols L,Nimbus Sans L"]) (case family [(system) "-b&h-lucida"] [(default) "-b&h-lucida"]