function hl=findobj(arg1,arg2,arg3)

% argument fig, cible valeur

%   Copyright 2003
%   Centre for Nonlinear Dynamics in Physiology and Medicine

if(nargin == 3)
fign=arg1;
cible=arg2;
valeur=arg3;
elseif(nargin == 2)
fign=0;
cible=arg1;
valeur=arg2;
else
disp('erreur d''argument dans findobject');
return
end;


hl=[];
while(~isempty(get(fign,'children')) & isempty(hl))


liste=get(fign,'children');
i=1;
while(i <= length(liste) & isempty(hl))

	if(strcmp(get(liste(i),cible),valeur))
	hl=liste(i);
	return;
	else
	hl=findobj(liste(i),cible,valeur);
	end
i=i+1;
end;
end;


