function boolean  = isobj(handle,currobj)
%ISOBJ	True for objects
%       ISOBJ(X) returns 1's where the elements of X are
% 		valid handles and 0's where they are not.
% 
% Keith Rogers 11/30/93

if nargin == 1,
	currobj = 0;
end

if isempty(handle)
   boolean = 0;
   return;
end      
boolean = (handle == currobj);
if(strcmp(get(currobj,'Type'),'axes'));
	boolean = boolean | (handle == get(currobj,'xlabel'));
	boolean = boolean | (handle == get(currobj,'ylabel'));
	boolean = boolean | (handle == get(currobj,'zlabel'));
	boolean = boolean | (handle == get(currobj,'title'));
end
children = get(currobj,'Children');
if(children)
	for i = 1:length(children)
		boolean = boolean | isobj(handle,children(i));
	end
end