OpenEuphoria

Re: EuGTK - GtkDrawingArea

• Posted by irv Oct 10, 2010
• 1307 views

------------------------------------------------------------- 
export function lookup_object_class_from_handle(atom handle) 
------------------------------------------------------------- 
ifdef LOOK then 
	? object_register 
end ifdef 
object list = vslice(object_register,1) 
integer x = find(handle,list) 
if x then  
	ifdef LOOK then 
		printf(1,"LOOKUP OBJ CLASS FROM HANDLE: class: %d handle:%d\n",{x,handle}) 
	end ifdef 
	return object_register[x][CLASS] 
else 
	return -1 
end if 
end function 

Heck, let's do this the easy way - just replace the routine with the code above, and run your program with -d LOOK as a parameter.