:- foreign(get_event_ob(+string,-string)).

:-object(receiver).

	:-public(receive/1).
	:-public(validate/1).
	:-public(get_event_ob/2).
	
	receive(Event).

	validate(Event):-
		self(Self),
		Self::get_event_ob(Event,Object),
		write(Object),	
		write('<-object found for event->'),
		write(Event),nl.

	validate(Event):-
		write('No object found for event->'),
		write(Event),nl.
		

:-end_object.