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

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

@ -663,19 +663,17 @@
(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)]
[alignment (match-field* alignment 'bottom target)]
[underlined (match-bool underlined (-send-get underlined (send base get-s-font)))]
[size-in-pixels (match-bool size-in-pixels (-send-get size-in-pixels (send base get-s-font)))])
(send target set-s-alignment alignment)
(let ([font (if (cdr fam+face)