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

enable font substitution for windows (it works on windows 7 and xp at least...)

Browse Source
This commit is contained in:
Robby Findler 2010-12-07 13:01:55 -06:00
parent a02d73e530
commit ab517bf432
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/draw/private/font.rkt
View File

@ -40,7 +40,7 @@
(define-syntax-rule (atomically e) (define-syntax-rule (atomically e)
(begin (start-atomic) (begin0 e (end-atomic)))) (begin (start-atomic) (begin0 e (end-atomic))))
(define substitute-fonts? (memq (system-type) '(macosx))) (define substitute-fonts? (memq (system-type) '(macosx windows)))
(define substitute-mapping (make-hasheq)) (define substitute-mapping (make-hasheq))
(define (install-alternate-face ch layout font desc attrs context) (define (install-alternate-face ch layout font desc attrs context)