OpenEuphoria

Re: EuGTK - GtkDrawingArea

• Posted by Jerry_Story Oct 10, 2010
• 1291 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 

jstory@jstory-desktop:/media/usb1_/projects/eugtk-projects/dmak-gtk$ eui dmak.exw -d LOOK

/usr/share/euphoria/include/std/sequence.e:1375 in function vslice()
A machine-level exception occurred during execution of this statement

... called from ./eugtk_stuff/GtkEngine.e:188 in function lookup_object_class_from_handle()

... called from ./eugtk_stuff/GtkEngine.e:484 in procedure set()

... called from ./dmak_actions.e:22 in procedure setFoodColors()