added eugtk examples
This commit is contained in:
30
eugtk/examples/glade/test12.ex
Normal file
30
eugtk/examples/glade/test12.ex
Normal file
@@ -0,0 +1,30 @@
|
||||
|
||||
--# 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
|
||||
|
||||
Reference in New Issue
Block a user