current_gui_advanced_new

 Advanced parameter view of current_gui created.
 [USAGE]
    [adv_fig] = current_gui_advanced_new(current_gui_figure [,current_parm]);
 [IN]
    current_gui_figure : current_gui figure handle
          current_parm : current_parm
 [OUT]
    adv_fig : current gui advanced paramter figure

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

0001 function [adv_fig] = ...
0002              current_gui_advanced_new(current_gui_figure, current_parm)
0003 % Advanced parameter view of current_gui created.
0004 % [USAGE]
0005 %    [adv_fig] = current_gui_advanced_new(current_gui_figure [,current_parm]);
0006 % [IN]
0007 %    current_gui_figure : current_gui figure handle
0008 %          current_parm : current_parm
0009 % [OUT]
0010 %    adv_fig : current gui advanced paramter figure
0011 %
0012 % Copyright (C) 2011, ATR All Rights Reserved.
0013 % License : New BSD License(see VBMEG_LICENSE.txt)
0014 
0015 %
0016 % --- Previous check
0017 %
0018 if ~exist('current_gui_figure', 'var')
0019     error('current_gui_figure is a required parameter.');
0020 end
0021 
0022 %
0023 % --- Main Procedure
0024 %
0025 if ~exist('current_parm', 'var')
0026     current_parm = [];
0027 end
0028 
0029 %
0030 % --- Open figure and make object member
0031 %
0032 adv_fig = openfig('current_gui_advanced.fig');
0033 set(adv_fig, 'Name', 'current_parm');
0034 
0035 % handles
0036 data = struct;
0037 data.H =guihandles(adv_fig);
0038 data.H.figure = adv_fig;
0039 data.parent   = current_gui_figure; % remember parent figure
0040 
0041 % save data to figure
0042 guidata(adv_fig, data);
0043 
0044 % set parameter to gui
0045 current_gui_advanced_set_parm_gui(adv_fig, current_parm);
0046 
0047 %
0048 % --- After check
0049 %
0050 if nargout ~= 1
0051     error('function caller should receive obj.');
0052 end