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

    function NewProject(h)
%NEWPROJECT Create a new project in Model Browser
%
%  NEWPROJECT(MB) creates a new project in the Model Browser.

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



% Create new project (untitled) and deal with current project.

ProjectPtr= h.RootNode;
msgID=h.addStatusMsg('Closing current project...');
cnode=h.CurrentNode;
OK=h.SelectNode(xregpointer);
if OK
    ProjectPtr.setmodified(h.FileModified);
    [MP,msg,cancel]= close(ProjectPtr.info);
    if isempty(msg) && ~cancel
        delete(MP);

        File = mbcGetPath('mbcmodel', 'Projects', 'Untitled');

        h.removeStatusMsg(msgID);
        msgID = h.addStatusMsg(['Opening file: ' File]);

        MP = mdevproject(File,[],[]);
        p = address(MP);

        h.RootNode = p;

        % update treeview
        treeview(MP,'refresh',h.Hand.Figure.TreeView);

        h.SelectNode(p);
    else
        h.SelectNode(cnode);
    end
else
    h.SelectNode(cnode);
    errordlg('Failed to close down current project', 'Error', 'modal');
end
h.removeStatusMsg(msgID);