From e6187eb6a7cc17ba6eeefd842d9369fd7ffe41e0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 Jan 2011 19:45:35 -0700
Subject: [PATCH] sort result of `get-face-list'

---
 collects/racket/draw/private/font.rkt | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/collects/racket/draw/private/font.rkt b/collects/racket/draw/private/font.rkt
index 0789ed2771..2f88185e30 100644
--- a/collects/racket/draw/private/font.rkt
+++ b/collects/racket/draw/private/font.rkt
@@ -289,12 +289,14 @@
 (define the-font-list (new font-list%))
 
 (define (get-face-list [mode 'all])
-  (map pango_font_family_get_name
-       (let ([fams (pango_font_map_list_families
-                    (pango_cairo_font_map_get_default))])
-         (if (eq? mode 'mono)
-             (filter pango_font_family_is_monospace fams)
-             fams))))
+  (sort
+   (map pango_font_family_get_name
+	(let ([fams (pango_font_map_list_families
+		     (pango_cairo_font_map_get_default))])
+	  (if (eq? mode 'mono)
+	      (filter pango_font_family_is_monospace fams)
+	      fams)))
+   string<?))
 
 (define (make-font #:size [size 12]
                    #:face [face #f]