OpenEuphoria

Pastey EuGTK Squished Controls

• Posted by euphoric (admin) Aug 21, 2019

include GtkEngine.e
 
sequence depts = {"A","B","C","D","E","F"} 
sequence subcats = { 
	{"FGHIJKL","MNOP","QRSTUV","WXYZ","12345"}, 
	{"MNOP","QRSTUV","WXYZ","12345"}, 
	{"QRSTUV","WXYZ","12345"}, 
	{"WXYZ","12345"}, 
	{"AAABBB","CCCCC","DDDDD","EEEEE","FFFFF"}, 
	{"ZZZZZZ","WWWWWW","YYYYYY","XXXXXX","QQQQQQ"} 
} 
 
constant 
	win = create(GtkWindow,"title=`List Views`,size=600x480,border_width=8,position=1,$destroy=Quit"), 
	panel = create(GtkBox,VERTICAL), 
 
	top_box = create(GtkBox,HORIZONTAL), 
	 
	scroll_Depts = create(GtkScrolledWindow), 
	scroll_Subcats = create(GtkScrolledWindow), 
 
	tree_Departments = create(GtkTreeView), 
	tree_Subcategories = create(GtkTreeView), 
	tree_Products = create(GtkTreeView), 
	 
	columns_Depts = create(GtkColumn,"title=Department,type=text,text=1"), 
	columns_Subcats = create(GtkColumn,"title=Subcategory,type=text,text=1"), 
	 
	store_Depts = create(GtkListStore,{gSTR}), 
	store_Subcats = create(GtkListStore,{gSTR}) 
 
add(tree_Departments,{columns_Depts}) 
add(tree_Subcategories,{columns_Subcats}) 
 
add(scroll_Depts,tree_Departments) 
add(scroll_Subcats,tree_Subcategories) 
 
add(top_box,{scroll_Depts,scroll_Subcats}) 
add(panel,{top_box,tree_Products}) 
add(win,panel) 
 
set(tree_Departments,"model",store_Depts) 
set(tree_Subcategories,"model",store_Subcats) 
 
set(store_Depts,"data",depts) 
-- clicking on department should show related subcategories 
-- set(store_Subcats,"data",subcats) 
 
show_all(win) 
main() 
 
ifdef UNIX then 
	c_proc(curl_easy_cleanup, {curl}) 
end ifdef