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

.

Browse Source 
original commit: 5359e1633206d4c0802e6d9c0b20df2ff38d3d90
This commit is contained in:
Matthew Flatt 1998-09-02 16:19:05 +00:00
parent af6536de55
commit 2ee2b233a9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mred/wrap/mred.ss
View File

@ -1645,7 +1645,10 @@
(define (font->delta f)
(define d (make-object wx:style-delta%))
(send d set-delta-face (send f get-face))
(let ([v (send f get-face)])
(if v
(send d set-delta-face v)
(send d set-delta 'change-family (send f get-family))))
(send d set-delta 'change-size (send f get-point-size))
(send d set-delta 'change-style (send f get-style))
(send d set-delta 'change-weight (send f get-weight))