Home > functions > gui > preAnalysis > sbi_meg > pa_sbi_meg_set_parm.m

pa_sbi_meg_set_parm

PURPOSE ^

This function sets parameters to sbi meg parameter gui.

SYNOPSIS ^

function pa_sbi_meg_set_parm(fig, sbi_meg_parm)

DESCRIPTION ^

 This function sets parameters to sbi meg parameter gui.
 [USAGE]
    pa_sbi_meg_set_parm(<fig> [,sbi_meg_parm]);
 [IN]
             fig : figure handle of leafield gui.
    sbi_meg_parm : to be set sbi_meg_parm [default:vb_set_sbi_meg_parm()]
 [OUT]
    none

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

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function pa_sbi_meg_set_parm(fig, sbi_meg_parm)
0002 % This function sets parameters to sbi meg parameter gui.
0003 % [USAGE]
0004 %    pa_sbi_meg_set_parm(<fig> [,sbi_meg_parm]);
0005 % [IN]
0006 %             fig : figure handle of leafield gui.
0007 %    sbi_meg_parm : to be set sbi_meg_parm [default:vb_set_sbi_meg_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('invalid figure handle.');
0019 end
0020 % default value
0021 if isempty(sbi_meg_parm)
0022     sbi_meg_parm = vb_set_sbi_meg_parm;
0023 end
0024 
0025 
0026 %
0027 % --- Main Procedure
0028 %
0029 
0030 % load data(@see pa_sbi_meg_create)
0031 data = guidata(fig);
0032 
0033 H = data.H; % component handles
0034 
0035 % SBI file
0036 set(H.sbi_file_edit, 'String', sbi_meg_parm.sbi_file);
0037 
0038 % DICOM file
0039 dicom_str = [sbi_meg_parm.dicom_dir sbi_meg_parm.dicom_file];
0040 set(H.Dicom_file_edit, 'String', dicom_str);
0041 
0042 % Analyze file
0043 set(H.analyze_edit, 'String', sbi_meg_parm.analyze_file);
0044 
0045 % keyword
0046 if isfield(sbi_meg_parm, 'keyword')
0047     set(H.keyword_edit, 'String', sbi_meg_parm.keyword);
0048 end
0049 
0050 % Comment
0051 if isfield(sbi_meg_parm, 'comment')
0052     set(H.comment_edit, 'String', sbi_meg_parm.comment);
0053 end
0054 
0055 
0056 % Save dir
0057 %[save_dir] = fileparts(meg_parm.meg_file);
0058 [save_dir] = vb_get_file_parts(sbi_meg_parm.meg_file);
0059 set(H.save_dir_edit, 'String', save_dir);
0060 
0061 % MEG-MAT file(output)
0062 set(H.megmat_file_edit, 'String', sbi_meg_parm.meg_file);
0063 
0064 pa_sbi_meg_util(fig, 'update_exec_push_status');
0065 
0066 
0067 % save data
0068 data.sbi_meg_parm = sbi_meg_parm;
0069 guidata(fig, data);

Generated on Tue 27-Aug-2013 11:46:04 by m2html © 2005