www.gusucode.com > mbctools 工具箱 matlab 源码程序 > mbctools/@xregtools/@MBrowser/CloseSubFigures.m

    function ok=CloseSubFigures(h)
% CLOSESUBFIGURES  Close any open sub-figure
%
%   ok=CloseSubFigures(h)
%

%  Copyright 2000-2013 The MathWorks, Inc. and Ford Global Technologies, Inc.



% Created 5/12/2000

ok= 1;
if ~isempty(h.SubFigures)
	fh=h.SubFigures;
	fh= findobj(fh(isgraphics(fh)),'flat','Visible','on');
   fh= unique(fh);
	if ~isempty(fh)
		close(fh);
		fh= findobj(fh(isgraphics(fh)),'flat','Visible','on');
	end
	ok= isempty(fh);
	h.SubFigures= h.SubFigures(isgraphics(h.SubFigures));
end