function show_family(h,eventdata)

% show_family - show parent and siblings of a figure
% --------------------------------------------------
%
% show_family(h);
%
% Input:
% ------
%  h - figure handle

%--------------------------------
% Author: Harold Figueroa
%--------------------------------
% $Revision: 1772 $
% $Date: 2005-09-09 18:34:37 -0400 (Fri, 09 Sep 2005) $
%--------------------------------

% NOTE: for now this only shows the ancestral family

% TODO: add the display of children to this

figure(h);

%--
% check for double click
%--

if (~double_click(h))
	return;
end

%--
% get parent and siblings
%--

par = get_xbat_figs('child',h);

% NOTE: return since no parent implies no siblings

if (isempty(par))
	return;
end

sib = setdiff(get_xbat_figs('parent',par),h);

%--
% display siblings and parent
%--

for k = 1:length(sib)
	figure(sib(k));
end

figure(par);

%--
% keep focus on ourselves
%--

figure(h);