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)
(send font get-face)))
(let ([fam (style-delta-family nonjoin-delta)])
(if (eq? fam 'base)
(cons (send (send base get-s-font) get-family)
#f)
(if (style-delta-face nonjoin-delta)
(cons fam (style-delta-face nonjoin-delta))
(cons fam #f)))))]
(cons (if (eq? fam 'base)
(send (send base get-s-font) get-family)
fam)
(style-delta-face nonjoin-delta))))]
[style (match-field style 'normal)]
[weight (match-field weight 'normal)]
[smoothing (match-field smoothing 'default)]