current_gui_new

 create current_parm gui.
 [USAGE]
    fig = current_gui_new([proj_root][,current_parm])
 [IN]
       proj_root : project root directory
    current_parm : current parameter
 [OUT]
    fig : figure handle of current_parm gui.

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function [fig] = current_gui_new(proj_root, current_parm)
0002 % create current_parm gui.
0003 % [USAGE]
0004 %    fig = current_gui_new([proj_root][,current_parm])
0005 % [IN]
0006 %       proj_root : project root directory
0007 %    current_parm : current parameter
0008 % [OUT]
0009 %    fig : figure handle of current_parm gui.
0010 %
0011 % Copyright (C) 2011, ATR All Rights Reserved.
0012 % License : New BSD License(see VBMEG_LICENSE.txt)
0013 
0014 %
0015 % --- Previous check
0016 %
0017 if ~exist('proj_root', 'var')
0018     proj_root = [];
0019 end
0020 if ~exist('current_parm', 'var')
0021     current_parm = vb_set_current_parm;
0022 end
0023 
0024 %
0025 % --- Main Procedure
0026 %
0027 
0028 fig = openfig('current_gui.fig');
0029 data = struct;
0030 data.H            = guihandles(fig);
0031 data.H.figure     = fig;
0032 data.current_parm = current_parm;
0033 data.time_parm    = [];
0034 data.adv_fig      = -1; % figure handle of advanced parameter gui.
0035 
0036 guidata(fig, data);
0037 
0038 set(data.H.proj_root_edit, 'String', proj_root);
0039 current_gui(fig, 'set_parm', current_parm);