From ab517bf432f889fd38961d40a4ab4312d865d057 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 7 Dec 2010 13:01:55 -0600 Subject: [PATCH] enable font substitution for windows (it works on windows 7 and xp at least...) --- collects/racket/draw/private/font.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/draw/private/font.rkt b/collects/racket/draw/private/font.rkt index c295b0f7f0..4b53b93acf 100644 --- a/collects/racket/draw/private/font.rkt +++ b/collects/racket/draw/private/font.rkt @@ -40,7 +40,7 @@ (define-syntax-rule (atomically e) (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 (install-alternate-face ch layout font desc attrs context)