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

sort the font names in the popup

Browse Source
This commit is contained in:
Robby Findler 2010-12-07 07:27:54 -06:00
parent 36e8d5ef99
commit 2d55dd1bb7
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/drracket/private/font.rkt
View File

@ -71,7 +71,7 @@
(when (eq? receiver font-name-control) (when (eq? receiver font-name-control)
(when (symbol? mono-list) (when (symbol? mono-list)
(begin-busy-cursor) (begin-busy-cursor)
(set! mono-list (get-face-list 'mono)) (set! mono-list (sort (get-face-list 'mono) string-ci<=?))
(send font-name-control clear) (send font-name-control clear)
(for-each (for-each
(λ (x) (send font-name-control append x)) (λ (x) (send font-name-control append x))