bayes_parm_advanced_close

 close bayes advanced parameter gui.
 [USAGE]
    bayes_parm_advanced_close(<fig>[, ok_close]);
 [IN]
          fig : figure handle of bayes advaced parameter gui.
     ok_close : true means gui closed by ok button
                false means gui close by cancel button(default)
 [OUT]
    none

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

0001 function bayes_parm_advanced_close(fig, ok_close)
0002 % close bayes advanced parameter gui.
0003 % [USAGE]
0004 %    bayes_parm_advanced_close(<fig>[, ok_close]);
0005 % [IN]
0006 %          fig : figure handle of bayes advaced parameter gui.
0007 %     ok_close : true means gui closed by ok button
0008 %                false means gui close by cancel button(default)
0009 % [OUT]
0010 %    none
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('fig', 'var') || isempty(fig)
0019     error('fig is a required parameter.');
0020 end
0021 if ~exist('ok_close', 'var')
0022     ok_close = false;
0023 end
0024     
0025 %
0026 % --- Main Procedure
0027 %
0028 if ishandle(fig)
0029     % load data(@see bayes_parm_advanced_init)
0030     data = guidata(fig);
0031     if ok_close
0032         [bayes_parm, a0_act_auto] = ...
0033             bayes_parm_advanced_gui(data.H.figure, 'get_parm');
0034         bayes_parm_editor(data.main_obj, 'set_a0_act_auto', a0_act_auto);
0035         bayes_parm_editor(data.main_obj, 'merge_bayes_parm', bayes_parm);
0036     end
0037     delete(data.H.figure);
0038 end