28 lines
690 B
Elixir
28 lines
690 B
Elixir
|
|
--# ComboBox demo, compare with demos/test116.ex
|
|
|
|
include GtkEngine.e
|
|
|
|
add(builder,"~/demos/glade/test116.glade")
|
|
|
|
constant items = {
|
|
{"Fish",create(GdkPixbuf,"thumbnails/fish.svg",30,30)},
|
|
{"Fox",create(GdkPixbuf,"thumbnails/fox.svg",30,30)},
|
|
{"Mouse",create(GdkPixbuf,"thumbnails/mouse.svg",30,30)}
|
|
}
|
|
|
|
set("liststore1","data",items)
|
|
set("combobox1","active",1)
|
|
|
|
main()
|
|
|
|
-----------------------------------------------------------------------
|
|
global function on_combobox1_changed(atom cb, atom win)
|
|
-----------------------------------------------------------------------
|
|
integer i = get(cb,"active")
|
|
set(win,"title",items[i][1])
|
|
set(win,"icon",items[i][2])
|
|
return 1
|
|
end function
|
|
|