28 lines
746 B
Elixir
28 lines
746 B
Elixir
|
|
||
|
|
--# 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
|