---------------------------
-- GtkListView	Aug.3, 2008
---------------------------

include GtkEngine.e
include GtkEnums.e
include GtkRoutines.e
include listbuilder.e

constant win = create(GtkWindow)
	connect(win,"destroy",quit)
	set(win,"position",GTK_WIN_POS_CENTER)

constant view = create(GtkTreeView)
	set(view,"rules hint",TRUE)
	set(view,"columns autosize")
	set(view,"grid lines",GTK_TREE_VIEW_GRID_LINES_BOTH)
	add(win,view)

constant model = create_model(view,
	{"Name","Addr","City","Age"},{STR,STR,STR,INT})
	set(view,"model",model)

constant list = {
	{"Fred Flinstone","301 Cobblestone Way","Bedrock",38},
	{"Wilma Flinstone","301 Cobblestone Way","Bedrock",31},
	{"Barney Rubble","303 Cobblestone Way","Bedrock",42},
	{"Betty Rubble","303 Cobblestone Way","Bedrock",39}
}

atom row
for i = 1 to length(list) do
	row = insert_row(model)
	insert_data(row,model,list[i])
end for

show_all(win)
main()

-------------------------------------------------------------------
-- copyright 2008 by Irv Mullins, code released under the LGPL
-------------------------------------------------------------------