Posted to tcl by GPS at Thu Oct 11 20:31:14 GMT 2007view raw

  1. Tk:
  2. if (!fontPtr->faces[i].ftFont) {
  3. FcPattern *pat = FcFontRenderPrepare(0, fontPtr->pattern,
  4. fontPtr->faces[i].source);
  5.  
  6. fontPtr->faces[i].ftFont = XftFontOpenPattern(fontPtr->display, pat);
  7. }
  8. return fontPtr->faces[i].ftFont;
  9.  
  10. Pango:
  11.  
  12.  
  13. xfont->xft_font = XftFontOpenPattern (display, pattern);
  14. if (!xfont->xft_font)
  15. {
  16. gchar *name = pango_font_description_to_string (fcfont->description);
  17. g_warning ("Cannot open font file for font %s", name);
  18. g_free (name);
  19. load_fallback_font (xfont);
  20. }
  21.