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

racket/gui win32: font fallback for labels

Browse Source 
When the requested font isn't available, fall back to
the default font at the requested size and style
This commit is contained in:
Matthew Flatt 2012-04-25 18:45:15 -06:00
parent 418a3cd83b
commit 9c025210aa
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,6 @@
#lang racket/base #lang racket/base
(require racket/class (require racket/class
racket/draw
racket/draw/private/local racket/draw/private/local
racket/draw/unsafe/pango) racket/draw/unsafe/pango)
@ -15,9 +16,19 @@
(define font-cache (pango_win32_font_cache_new)) (define font-cache (pango_win32_font_cache_new))
(define (font->hfont f) (define (font->hfont f)
(let* ([pfont (pango_font_map_load_font display-font-map (let* ([pfont (or (pango_font_map_load_font display-font-map
display-context display-context
(send f get-pango))] (send f get-pango))
;; font load failed, so fall back to default
;; font with the same size and style:
(pango_font_map_load_font display-font-map
display-context
(send (make-font
#:size (send f get-point-size)
#:style (send f get-style)
#:weight (send f get-weight)
#:size-in-pixels? (send f get-size-in-pixels))
get-pango)))]
[logfont (and pfont [logfont (and pfont
(pango_win32_font_logfont pfont))]) (pango_win32_font_logfont pfont))])
(and logfont (and logfont