OpenEuphoria

1. EuGTK - documentation?

• Posted by Jerry_Story Aug 07, 2010
• 1471 views

EuGTK for Euphoria v. 4.0 needs documentation. All it has now is demos and *.e files. I can figure out a few things from the demos but it's rough going.

3. Re: EuGTK - documentation?

• Posted by Jerry_Story Aug 09, 2010
• 1338 views

Disappointing. Sounds like maybe a dead project. The reason why I got interested in EuGTK is that programs based on EuGTK don't require a *.so file. WxEuphoria is great and has everything in it but some people have a problem installing the *.so file. That's the one and only problem I have with wxEuphoria.

About "too few users". That could be a catch 22 situation. No users, no motivation to write documentation. No documentation, very difficult to use it.

5. Re: EuGTK - documentation?

• Posted by Jerry_Story Aug 16, 2010
• 1335 views

Currently I'm trying to translate my program DMAK (Diet Monger Ass Kicker) from wxEuphoria to EuGTK. I managed to slog my way up to what in wxEuphoria is called wxListCtrl. In EuGTK in test35.e it's called GtkTreeView. At that point I said to myself: I guess this this is a dead project, at least until I get some documentation.

7. Re: EuGTK - documentation?

• Posted by irv Aug 17, 2010
• 1282 views
• Last edited Aug 19, 2010

OK, here you go - you can see a screenshot here Note: you'll need an updated EuGTK library ver. 4.1.8 - download it here

 
include GtkEngine.e 
 
include file.e 
include std/sequence.e 
include std/filesys.e 
include std/machine.e 
 
 
function Foo(object selected) 
	Info(0,"You Chose",get(selected,"text"),repeat('*',20)) 
	return 1 
end function 
constant foo = call_back(routine_id("Foo")) 
 
constant win = create(GtkWindow) 
	connect(win,"destroy",quit) 
	set(win,"title","Tree View") 
	set(win,"position",GTK_WIN_POS_CENTER) 
	set(win,"border width",10) 
	set(win,"default size",400,400) 
 
constant panel = create(GtkVBox) 
	add(win,panel) 
 
constant iv  = create(GtkTreeView) 
	set(iv,"reorderable",TRUE) 
	add(panel,iv) 
	 
constant lbl = create(GtkLabel) 
set(lbl,"markup", 
	"<span size='small'>Double click on a row to retrieve info\nDrag items to re-order!</span>") 
pack(panel,-lbl) 
 
atom renderer1 = create(GtkCellRendererText) 
constant col0 = create(GtkTreeViewColumn) 
 
object store = create(GtkTreeStore,gSTR,gSTR)  
	set(iv,"model",store) 
	set(iv,"insert column with attributes",-1,"Name",renderer1,"text",0) 
	set(iv,"insert column with attributes",-1,"Difficulty",renderer1,"text",1) 
 
enum COL0 = 0, COL1, COL2 
 
object parent = allocate(32) 
object child = allocate(32)  
 
procedure new_category(atom store, object txt) 
	set(store,"append",parent) 
	for col = 1 to length(txt) do 
		set(store,"set",parent,col-1,allocate_string(txt[col]),-1) 
	end for 
end procedure 
 
procedure new_row(atom store, object txt) 
	set(store,"append",child,parent) 
	for col =  1 to length(txt) do 
		set(store,"set",child,col-1,allocate_string(txt[col]),-1) 
	end for 
end procedure 
 
new_category(store,{"Programming Languages"}) 
	new_row(store,{"Euphoria","Easy"}) 
	new_row(store,{"Python","Easy"}) 
	new_row(store,{"C++","Difficult"}) 
	new_row(store,{"C","Dangerous"}) 
	 
new_category(store,{"Operating Systems"}) 
	new_row(store,{"Windows","fragile"}) 
	new_row(store,{"Linux","Much better"}) 
	new_row(store,{"OSX","Costly"}) 
 
connect(iv,"row-activated",foo,child) 
 
show_all(win) 
main()