re: Fonts

Hi Espen,

The widget-modify-font function works. Thanx.
For example:

(defun my_test_font ()
(let* (
       (win (make-instance 'gtk::window
                :type :toplevel
                :visible t
                :show-children t
                :child (let ((font_lab (make-instance 'gtk::label :label 
"Hi Espen!!!")))
                    (gtk::widget-modify-font font_lab "Bitstream Charter 
bold 36")
                    font_lab))))
  win))

But it seems to works only for labels?
Should it work for other widgets? Am I doing something wrong?

(defun my_test_font ()
(let* (
       (win (make-instance 'gtk::window
                :type :toplevel
                :visible t
                :show-children t
                :child (let ((font_lab (make-instance 'gtk::button 
:label "Hi Espen!!!")))
                    (gtk::widget-modify-font font_lab "Bitstream Charter 
bold 36")
                    font_lab))))
  win))

Thanx again.

Ephrem


-------------------------------------------------------
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