Re: Fonts

Espen S Johnsen <[email protected]> writes:

> Ephrem Boudonnet <[email protected]> writes:
> 
> > I was just trying to use some font for the text of a button (for
> > example) using the function "widget-modify-font", but I don't know
> > what to put for the font-desc (the third argument).

There should of course be no style argument to widget-modify-font. Here
is a corrected definition, which also takes a string description for the
font argument:

(defbinding widget-modify-font (widget font-desc) nil
  (widget widget)
  ((etypecase font-desc
     (pango:font-description font-desc)
     (string (pango:font-description-from-string font-desc)))
   pango:font-description))

-- 
Espen


-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642