From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <guile-gtk-return-598-listarch-guile-gtk=sources.redhat.com@sources.redhat.com>
Received: (qmail 20306 invoked by alias); 25 Mar 2003 10:49:01 -0000
Mailing-List: contact guile-gtk-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:guile-gtk-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/guile-gtk/>
List-Post: <mailto:guile-gtk@sources.redhat.com>
List-Help: <mailto:guile-gtk-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: guile-gtk-owner@sources.redhat.com
Received: (qmail 20194 invoked from network); 25 Mar 2003 10:48:59 -0000
Received: from unknown (HELO maho3msx2.corp.emc.com) (128.221.11.32)
  by sources.redhat.com with SMTP; 25 Mar 2003 10:48:59 -0000
Received: from pablo (10.68.1.79 [10.68.1.79]) by maho3msx2.corp.emc.com with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
	id GLPW0LYK; Tue, 25 Mar 2003 05:48:58 -0500
Date: Tue, 25 Mar 2003 10:49:00 -0000
From: Stan Pinte <stan@altosw.be>
To: guile-gtk <guile-gtk@sources.redhat.com>
Cc: guile-user <guile-user@gnu.org>
Subject: font selection problem
Message-Id: <20030325122324.4c42eadf.stan@altosw.be>
Organization: Alto Software
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
X-SW-Source: 2003-q1/txt/msg00021.txt.bz2

hello,

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

Anyway, the "font" directives do not seem to have any impact on the font us=
ed 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]=3D"#333"
	#fg[SELECTED]=3D"#FFF"=09
	#fg[NORMAL] =3D "#aacccc"
	#font =3D "-adobe-helvetica-bold-*-*--*-*-*-*-*-*-*-*"
	font =3D "-misc-fixed-medium-r-normal--10-*-*-*-*-*-*-*"
	#font=3D"-adobe-helvetica-bold-*-normal-*-10-*-*-*-*-*-iso8859-*"
	#font=3D"-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 ()=20
			(display "Hello World!")
			(newline)
			(gtk-widget-destroy window)))
  (gtk-widget-show-all window)
  (gtk-standalone-main window))

--=20

Stanislas Pinte

Computer Consultant

	98, rue Bois l'Ev=EAque
	B-4000 Li=E8ge

web:		http://www.altosw.be
email:		alto_stan@wanadoo.be