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

fix style font-face problem

Browse Source 
svn: r14491
This commit is contained in:
Matthew Flatt 2009-04-11 14:48:23 +00:00
parent ccf5809b45
commit 04a8e21cf2
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mred/private/wxme/style.ss
View File

@ -663,12 +663,10 @@
(cons (send font get-family) (cons (send font get-family)
(send font get-face))) (send font get-face)))
(let ([fam (style-delta-family nonjoin-delta)]) (let ([fam (style-delta-family nonjoin-delta)])
(if (eq? fam 'base) (cons (if (eq? fam 'base)
(cons (send (send base get-s-font) get-family) (send (send base get-s-font) get-family)
#f) fam)
(if (style-delta-face nonjoin-delta) (style-delta-face nonjoin-delta))))]
(cons fam (style-delta-face nonjoin-delta))
(cons fam #f)))))]
[style (match-field style 'normal)] [style (match-field style 'normal)]
[weight (match-field weight 'normal)] [weight (match-field weight 'normal)]
[smoothing (match-field smoothing 'default)] [smoothing (match-field smoothing 'default)]