www.gusucode.com > mbctools 工具箱 matlab 源码程序 > mbctools/@mdevtestplan/DeleteDesign.m

    function T=DeleteDesign(T,h);
% TESTPLAN/DELETEDESIGN delete design and any data

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



[Xp,Yp]= dataptr(T);
if Xp~=0
   freeptr(Xp);
   freeptr(Yp);
   T=AssignData(T,{xregpointer,xregpointer});
end
T.Matched=  0;

T.DataLink= xregpointer;

pointer(T);

if numChildren(T)
	
	if isempty(T.Responses)
		% store best models so we can build them again 
		m= children(T,'Model');
		for i=1:length(m)
			m{i}= reset(m{i});
		end
		% if there are none we will rely on any previously set responses
		T.Responses = m;
		pointer(T);
	end
	% remove children from tree and delete
	ch=children(T);
    if nargin>1 && isBrowserProject(T)
        for i=1:length(ch);
            try
                h.treeview(ch(i),'remove');
            end
        end
    end
	children(T,'delete');
end
T= info(T);