pa_fmri_parm_gui_set_parm

 set fmri_parm to advanced parameter gui.
 [USAGE]
    pa_fmri_parm_gui_get_parm(<fig>, <fmri_parm>);
 [IN]
          fig : figure handle of fmri advanced parameter gui.
    fmri_parm : fmri_parm
 [OUT]
    none

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

0001 function pa_fmri_parm_gui_set_parm(fig, fmri_parm)
0002 % set fmri_parm to advanced parameter gui.
0003 % [USAGE]
0004 %    pa_fmri_parm_gui_get_parm(<fig>, <fmri_parm>);
0005 % [IN]
0006 %          fig : figure handle of fmri advanced parameter gui.
0007 %    fmri_parm : fmri_parm
0008 % [OUT]
0009 %    none
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('fig', 'var') || isempty(fig) || ~ishandle(fig)
0018     error('figure handle is invalid.');
0019 end
0020 if ~exist('fmri_parm')
0021     fmri_parm = vb_set_fmri_parm; % default
0022 end
0023 
0024 %
0025 % --- Main Procedure
0026 %
0027 data = guidata(fig);
0028 H = data.H;
0029 
0030 % T-value threshold (one-sided)
0031 val = fmri_parm.Tthres;
0032 set_value(H.T_value_edit, num2str(val));
0033 
0034 % Percent signalchange threshold (two-sided) (unit : %)
0035 val = fmri_parm.PSthres;
0036 set_value(H.PS_threshold_edit, num2str(val));
0037 
0038 % Radius threshold for converting a voxel image to a surface image (unit:mm)
0039 val = fmri_parm.Rthres;
0040 set_value(H.spm_radius_edit, num2str(val));
0041 
0042 function set_value(h, str)
0043 set(h, 'String', str);
0044 setappdata(h, 'pre_val', str);