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

win32 racket/gui: fix decoding of system font name

Browse Source 
Closes PR 12997
This commit is contained in:
Matthew Flatt 2012-08-23 08:14:55 -06:00
parent 8ed42e6162
commit d9784aa7eb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wx/win32/font.rkt
View File

@ -61,11 +61,12 @@
[lfFaceName (_array _uint16 32)])) [lfFaceName (_array _uint16 32)]))
(define (logfont->pango-family logfontw) (define (logfont->pango-family logfontw)
(define logfont (malloc _LOGFONTW)) ;; We'll allocate `logfont' as LOGFONTW but use it as LOGFONTA:
(memcpy logfont logfontw (ctype-sizeof _LOGFONTW)) ; bit enough for _LOGFONTA, too (define logfont (cast (malloc _LOGFONTW) _pointer (_gcable _LOGFONTW-pointer)))
(memcpy logfont logfontw (ctype-sizeof _LOGFONTW))
(WideCharToMultiByte 0 0 (WideCharToMultiByte 0 0
(array-ptr (LOGFONTW-lfFaceName logfontw)) 0 (array-ptr (LOGFONTW-lfFaceName logfontw)) -1
(array-ptr (LOGFONTW-lfFaceName logfontw)) 32 (array-ptr (LOGFONTW-lfFaceName logfont)) 32
#f #f) #f #f)
(define desc (define desc
(pango_win32_font_description_from_logfont logfont)) (pango_win32_font_description_from_logfont logfont))