0
@@ -493,17 +493,40 @@ shoes_load_font(const char *filename)
0
   FSRef fsRef;
0
   FSSpec fsSpec;
0
   Boolean isDir;
0
+  VALUE families = Qnil;
0
+  ATSFontContainerRef ref;
0
+  NSString *fontName;
0
   FSPathMakeRef(filename, &fsRef, &isDir);
0
   if (FSGetCatalogInfo(&fsRef, kFSCatInfoNone, NULL, NULL, &fsSpec, NULL) == noErr)
0
   {
0
     ATSFontActivateFromFileSpecification(&fsSpec, kATSFontContextLocal, kATSFontFormatUnspecified, 
0
-      NULL, kATSOptionFlagsDefault, NULL);
0
+      NULL, kATSOptionFlagsDefault, &ref);
0
+    if (ref != NULL)
0
+    {
0
+      int i = 0;
0
+      ItemCount count = 0;
0
+      ATSFontRef *fonts;
0
+      ATSFontFindFromContainer(ref, kATSOptionFlagsDefault, 0, NULL, &count); 
0
+      families = rb_ary_new();
0
+      if (count > 0)
0
+      {
0
+        fonts = SHOE_ALLOC_N(ATSFontRef, count);
0
+        ATSFontFindFromContainer(ref, kATSOptionFlagsDefault, count, fonts, &count); 
0
+        for (i = 0; i < count; i++)
0
+        {
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
-  // ATSFontContainerRef o;
0
-  // if (ATSFontActivateFromFileReference(file, kATSFontContextLocal, kATSFontFormatUnspecified,
0
-  //   NULL, kATSOptionFlagsDefault, &o) != noErr) return Qnil;
0
-  return rb_ary_new();
0
+  return families;
0
 }
0
 
0
 void shoes_native_init()