--------------------------------------
-- FontButton 
--------------------------------------

include GtkEngine.e
include std/dll.e

---------------------------------
function Foo(atom ctl, atom lbl)
---------------------------------
object fntname = get(ctl,"font name")
	set(lbl,"modify font",font(fntname))
	set(lbl,"markup","The font you are seeing is\n" & fntname)
return 1
end function
constant foo = call_back(routine_id("Foo"))

constant win = create(GtkWindow)
	connect(win,"destroy",quit)
	set(win,"border width",10)
	set(win,"default size",300,200)
	set(win,"position",1)

constant panel = create(GtkVBox)
	add(win,panel)

constant label1 = create(GtkLabel)
	set(label1,"markup","Click button below to change font")
	add(panel,label1)

constant fontbtn = create(GtkFontButton,"with_font::URW Chancery L 18")	
	connect(fontbtn,"font-set",foo,label1)
	set(fontbtn,"title","Choose a font!")
	set(fontbtn,"use font",TRUE)
	set(fontbtn,"use size",FALSE)
	set(fontbtn,"show style",TRUE)
	pack(panel,fontbtn)

show_all(win)
main()

--------------------------------------------------------------
-- copyright 2009 by Irv Mullins, code released under the LGPL
--------------------------------------------------------------