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