font selection problem

[Stan Pinte]

hello,

I do not know if anyone has ever tried to set different fonts for labels, 
buttons, etc from a resource file, using guile-gtk.

Anyway, the "font" directives do not seem to have any impact on the font used 
by Gtk...

I am using guile-gtk-1.2.31, and guile-1.6.2 ...

the included test program should proof the fact...

Any ideas?

thanks a lot,

Stan.

resource file:

style "my-style"
{
        #bg[NORMAL]="#333"
        #fg[SELECTED]="#FFF"    
        #fg[NORMAL] = "#aacccc"
        #font = "-adobe-helvetica-bold-*-*--*-*-*-*-*-*-*-*"
        font = "-misc-fixed-medium-r-normal--10-*-*-*-*-*-*-*"
        #font="-adobe-helvetica-bold-*-normal-*-10-*-*-*-*-*-iso8859-*"
        #font="-adobe-courier-medium-i-normal-*-*-100-*-*-m-*-iso8859-1"
}

class "*GtkButton*" style "my-style"
#class "*GtkLabel*" style "my-style"
#class "*GtkEntry" style "my-style"
widget "*mybutton" style "my-style"
widget "*mylabel" style "my-style"

program:

(use-modules (gtk gtk))

(gtk-rc-parse "hellorc")

(let ((window (gtk-window-new 'toplevel))
      (vbox (gtk-vbox-new #f 0))
      (button (gtk-button-new-with-label "Say Hello"))
      (label (gtk-label-new "test")))
  (gtk-widget-set-name button "mybutton")
  (gtk-widget-set-name window "mywindow")
  (gtk-widget-set-name label "mylabel")
  (gtk-window-set-title window "Guile-Gtk: Hello World")
  (gtk-container-border-width window 10)
  (gtk-container-add vbox button)
  (gtk-container-add vbox label)
  (gtk-container-add window vbox)
  (gtk-signal-connect button "clicked"
                      (lambda () 
                        (display "Hello World!")
                        (newline)
                        (gtk-widget-destroy window)))
  (gtk-widget-show-all window)
  (gtk-standalone-main window))

-- 

Stanislas Pinte

Computer Consultant

        98, rue Bois l'Evêque
        B-4000 Liège

web:            http://www.altosw.be
email:          address@hidden