Commit e685aabb283258e6f47a9b88cd273680c70a59e5 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: getting custom fonts working on os x, starting 
 with the deprecated API, will add leopard soon.

why (author)

Sun Oct 05 23:43:58 -0700 2008

commit e685aabb283258e6f47a9b88cd273680c70a59e5
tree 8fc4bfa666a7900d9e3b5535ac556d85f553dd8b
parent 2b9810a05382dd436aa89284f610a73675482849

shoes/native/cocoa.m

shoes/native/cocoa.m

0
@@ -487,12 +487,22 @@ create_help_menu(NSMenu *main)
0
     [menuHelp release];
0
 }
0
 
0
-int
0
+VALUE
0
 shoes_load_font(const char *filename)
0
 {
0
-  ATSFontContainerRef o;
0
-  if (ATSFontActivateFromFileReference(file, kATSFontContextLocal, kATSFontFormatUnspecified,
0
-    NULL, kATSOptionFlagsDefault, &o) != noErr) return Qnil;
0
+  FSRef fsRef;
0
+  FSSpec fsSpec;
0
+  Boolean isDir;
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
+  }
0
+
0
+  // ATSFontContainerRef o;
0
+  // if (ATSFontActivateFromFileReference(file, kATSFontContextLocal, kATSFontFormatUnspecified,
0
+  //   NULL, kATSOptionFlagsDefault, &o) != noErr) return Qnil;
0
   return rb_ary_new();
0
 }
0

Comments

No one has commented yet.