31 lines
596 B
Elixir
31 lines
596 B
Elixir
|
|
||
|
|
--# Glade version of test12.ex
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
add(builder,"~/demos/glade/test12.glade")
|
||
|
|
|
||
|
|
constant fruit = {
|
||
|
|
"Apples",
|
||
|
|
"Bananas",
|
||
|
|
"Cherries",
|
||
|
|
"Grapes",
|
||
|
|
"Peaches",
|
||
|
|
"Pears"
|
||
|
|
}
|
||
|
|
|
||
|
|
for i = 1 to length(fruit) do
|
||
|
|
set("comboboxtext1","append text",fruit[i])
|
||
|
|
end for
|
||
|
|
set("comboboxtext1","active",1)
|
||
|
|
|
||
|
|
main()
|
||
|
|
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
global function on_button2_clicked()
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
Info("window1",,"Your favorite is",get("comboboxtext1","active text"))
|
||
|
|
return 1
|
||
|
|
end function
|
||
|
|
|