suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

manual font substitution for Mac OS X

Browse Source 
original commit: ff57455150f99ea87ce4702acc284e4be119145d
This commit is contained in:
Matthew Flatt 2010-08-04 11:06:02 -06:00
parent 4995e89a21
commit 26dd281012
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/fontdialog.rkt
View File

@ -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)])