Commit 4d450e1ee1e9a6e27742b033d29b9527967c2ff8 to why's shoes

why / shoes

Description:	a tiny graphical app kit for ruby
Homepage:	http://code.whytheluckystiff.net/shoes
Clone URL:	git://github.com/why/shoes.git Give this clone URL to anyone. `git clone git://github.com/why/shoes.git`

 * shoes/native/cocoa.m: shoes_font_list stalled under os x.

why (author)

Mon Oct 06 09:25:35 -0700 2008

commit 4d450e1ee1e9a6e27742b033d29b9527967c2ff8
tree 67182b237d67c8774b4f0c380f81f33728c40f5f
parent 7184a4ae56a1253fbe08cc58011d4694e07a4cc2

shoes/native/cocoa.m

shoes/native/cocoa.m

0
@@ -494,15 +494,15 @@ shoes_font_list()
0
   ATSFontRef fontRef = 0;
0
   NSMutableArray *outArray;
0
   VALUE ary = rb_ary_new(); 
0
-  while (noErr == ATSFontIteratorCreate(kATSFontContextLocal, nil, nil,
0
+  if (noErr == ATSFontIteratorCreate(kATSFontContextLocal, nil, nil,
0
          kATSOptionFlagsUnRestrictedScope, &fi))
0
   {
0
-    if (noErr == ATSFontIteratorNext(fi, &fontRef))
0
+    while (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
+        rb_ary_push(ary, rb_str_new2([fontName UTF8String]));
0
     }
0
   }
0

Comments

No one has commented yet.