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

sort result of `get-face-list'

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-11 19:45:35 -07:00
parent 1ce430faf7
commit e6187eb6a7
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/racket/draw/private/font.rkt
View File

@ -289,12 +289,14 @@
(define the-font-list (new font-list%)) (define the-font-list (new font-list%))
(define (get-face-list [mode 'all]) (define (get-face-list [mode 'all])
(map pango_font_family_get_name (sort
(let ([fams (pango_font_map_list_families (map pango_font_family_get_name
(pango_cairo_font_map_get_default))]) (let ([fams (pango_font_map_list_families
(if (eq? mode 'mono) (pango_cairo_font_map_get_default))])
(filter pango_font_family_is_monospace fams) (if (eq? mode 'mono)
fams)))) (filter pango_font_family_is_monospace fams)
fams)))
string<?))
(define (make-font #:size [size 12] (define (make-font #:size [size 12]
#:face [face #f] #:face [face #f]