pa_close_leadfield_parm_gui

 This function close leadfield advanced parameter GUI.
 [IN]
    H : GUI component handles
 [OUT]
    H : GUI component handles

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

0001 function H = pa_close_leadfield_parm_gui(H)
0002 % This function close leadfield advanced parameter GUI.
0003 % [IN]
0004 %    H : GUI component handles
0005 % [OUT]
0006 %    H : GUI component handles
0007 %
0008 % Copyright (C) 2011, ATR All Rights Reserved.
0009 % License : New BSD License(see VBMEG_LICENSE.txt)
0010 
0011 try
0012     if isfield(H.fig, 'Leadfield_parm') && ishandle(H.fig.Leadfield_parm)
0013         % kill figure
0014         delete(H.fig.Leadfield_parm);
0015 
0016         % clear figure handle and gui handles
0017         H.fig = rmfield(H.fig, 'Leadfield_parm');
0018         H     = rmfield(H,     'Leadfield_parm');
0019     else
0020         delete(get(0, 'CurrentFigure'));
0021     end
0022 catch
0023     delete(get(0, 'CurrentFigure'));
0024 end
0025