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

avoid allocating a new font map, since freeing it seems to create problems

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-16 12:21:25 -07:00
parent 7fa0ae3ea6
commit 01b9c1600e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/draw/private/dc.rkt
View File

@ -1645,7 +1645,7 @@
(and c (cons c fm))) (and c (cons c fm)))
(cons (cons
(pango_cairo_create_context cr) (pango_cairo_create_context cr)
(pango_cairo_font_map_new)))]) (pango_cairo_font_map_get_default)))])
(let ([font (pango_font_map_load_font (cdr context+fontmap) (let ([font (pango_font_map_load_font (cdr context+fontmap)
(car context+fontmap) (car context+fontmap)
desc)]) desc)])