--# Test a few controls built with Glade

include GtkEngine.e
include GtkFileSelector.e

add(builder,canonical_path("~/demos/glade/gladetest1.glade"))

main()

-----------------------------------------------------------------------
global function help_me() 
-----------------------------------------------------------------------
    Info(,,"About","My fine program!")
return 1
end function

-----------------------------------------------------------------------
global function open_file() 
-----------------------------------------------------------------------
    fileselector:filters = {"image"}
    object newfile = fileselector:Open("*")
    if sequence(newfile) then
	set("image1","from file",newfile)
    end if
return 1
end function