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

win32: fix pango font-map finalization

Browse Source
This commit is contained in:
Matthew Flatt 2011-05-13 13:56:04 -06:00
parent 450c66d308
commit 2e367626b5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/draw/unsafe/pango.rkt
View File

@ -139,6 +139,7 @@
(define-glib g_queue_foreach (_pfun _GQueue _fpointer #;(_fun _pointer -> _void) _pointer -> _void)) (define-glib g_queue_foreach (_pfun _GQueue _fpointer #;(_fun _pointer -> _void) _pointer -> _void))
(define-glib g_queue_free (_pfun _GQueue -> _void)) (define-glib g_queue_free (_pfun _GQueue -> _void))
(define-glib g_queue_new (_pfun -> _GQueue)) (define-glib g_queue_new (_pfun -> _GQueue))
(define-gobj raw_g_object_unref _fpointer #:c-id g_object_unref)
(define (unref-font-map v) (define (unref-font-map v)
(when (eq? (system-type) 'windows) (when (eq? (system-type) 'windows)
@ -151,7 +152,7 @@
;; flushing the queue of freed fonts before the font map is ;; flushing the queue of freed fonts before the font map is
;; unreffed. ;; unreffed.
(let ([fm (cast v _pointer _PangoWin32FontMap-pointer)]) (let ([fm (cast v _pointer _PangoWin32FontMap-pointer)])
(g_queue_foreach (PangoWin32FontMap-freed_fonts fm) g_object_unref #f) (g_queue_foreach (PangoWin32FontMap-freed_fonts fm) raw_g_object_unref #f)
(g_queue_free (PangoWin32FontMap-freed_fonts fm)) (g_queue_free (PangoWin32FontMap-freed_fonts fm))
(set-PangoWin32FontMap-freed_fonts! fm (g_queue_new)))) (set-PangoWin32FontMap-freed_fonts! fm (g_queue_new))))
(g_object_unref v)) (g_object_unref v))