0
@@ -488,6 +488,31 @@ create_help_menu(NSMenu *main)
0
 }
0
 
0
 VALUE
0
+shoes_font_list()
0
+{
0
+  ATSFontIterator fi = NULL;
0
+  ATSFontRef fontRef = 0;
0
+  NSMutableArray *outArray;
0
+  VALUE ary = rb_ary_new(); 
0
+  while (noErr == ATSFontIteratorCreate(kATSFontContextLocal, nil, nil,
0
+         kATSOptionFlagsUnRestrictedScope, &fi))
0
+  {
0
+    if (noErr == ATSFontIteratorNext(fi, &fontRef))
0
+    {
0
+      NSString *fontName;
0
+      ATSFontGetName(fontRef, kATSOptionFlagsDefault, &fontName);
0
+      if (fontName != NULL)
0
+        rb_ary_push(families, rb_str_new2([fontName UTF8String]));
0
+    }
0
+  }
0
+  
0
+  ATSFontIteratorRelease(&fi);
0
+  rb_funcall(ary, rb_intern("uniq!"), 0);
0
+  rb_funcall(ary, rb_intern("sort!"), 0);
0
+  return ary;
0
+}
0
+
0
+VALUE
0
 shoes_load_font(const char *filename)
0
 {
0
   FSRef fsRef;
0
@@ -517,15 +542,14 @@ shoes_load_font(const char *filename)
0
           fontName = NULL;
0
           ATSFontGetName(fonts[i], kATSOptionFlagsDefault, &fontName);
0
           if (fontName != NULL)
0
-          {
0
             rb_ary_push(families, rb_str_new2([fontName UTF8String]));
0
-          }
0
         }
0
         SHOE_FREE(fonts);
0
       }
0
     }
0
   }
0
 
0
+  shoes_update_fonts(shoes_font_list());
0
   return families;
0
 }
0