/*
 * Used to determine dynamically if an object is an instance of a specified class or of a subclass of the specified class.
 */
BOOL instanceof ( TObject * object, TObject * prototype ) { 
	BOOL result = FALSE ; 
	//char * prototypeName = prototype -> class ; 
	while ( ( object != NULL ) && ! result ) { 
		//if ( ! strcmp ( object -> class , prototypeName ) ) { 
		if ( object -> class_id == prototype->class_id ) { 
			result = TRUE ; 
		} 
		object = object -> super ; 
	} 
	return result ; 
}