Home > functions > gui > project_mgr_dir > project_mgr_close.m

project_mgr_close

PURPOSE ^

close project_mgr gui and module guis.

SYNOPSIS ^

function project_mgr_close(fig)

DESCRIPTION ^

 close project_mgr gui and module guis.
 [USAGE]
    project_mgr_close(<fig>);
 [IN]
    fig : figure handle of project_mgr gui.
 [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:

SUBFUNCTIONS ^

SOURCE CODE ^

0001 function project_mgr_close(fig)
0002 % close project_mgr gui and module guis.
0003 % [USAGE]
0004 %    project_mgr_close(<fig>);
0005 % [IN]
0006 %    fig : figure handle of project_mgr gui.
0007 % [OUT]
0008 %    none
0009 %
0010 % Copyright (C) 2011, ATR All Rights Reserved.
0011 % License : New BSD License(see VBMEG_LICENSE.txt)
0012 
0013 %
0014 % --- Previous check
0015 %
0016 if ~exist('fig', 'var') || isempty(fig) || ~ishandle(fig)
0017     error('invalid figure handle is specified.'); 
0018 end
0019 
0020 %
0021 % --- Main Procedure
0022 %
0023 
0024 % load data (@see project_mgr)
0025 data = guidata(fig);
0026 
0027 % brain figure close
0028 figures = inner_get_valid_handle(data.pa_brain_fig);
0029 if ~isempty(figures)
0030     for k=1:length(figures)
0031         pa_brain_close(figures(k));
0032     end
0033 end
0034 
0035 % fmri figure close
0036 figures = inner_get_valid_handle(data.pa_fmri_fig);
0037 if ~isempty(figures)
0038     for k=1:length(figures)
0039         pa_fmri_close(figures(k));
0040     end
0041 end
0042 
0043 % biosemi eeg figure close
0044 figures = inner_get_valid_handle(data.pa_biosemi_eeg_fig);
0045 if ~isempty(figures)
0046     for k=1:length(figures)
0047         pa_biosemi_eeg_close(figures(k));
0048     end
0049 end
0050 
0051 % yokogawa meg figure close
0052 figures = inner_get_valid_handle(data.pa_yokogawa_meg_fig);
0053 if ~isempty(figures)
0054     for k=1:length(figures)
0055         pa_yokogawa_meg_close(figures(k));
0056     end
0057 end
0058 
0059 % sbi meg figure close
0060 figures = inner_get_valid_handle(data.pa_sbi_meg_fig);
0061 if ~isempty(figures)
0062     for k=1:length(figures)
0063         pa_sbi_meg_close(figures(k));
0064     end
0065 end
0066 
0067 % leadfield figures close
0068 figures = inner_get_valid_handle(data.pa_leadfield_fig);
0069 if ~isempty(figures)
0070     for k=1:length(figures)
0071         pa_leadfield_close(figures(k));
0072     end
0073 end
0074 
0075 % bayes figures close
0076 figures = inner_get_valid_handle(data.bayes_fig);
0077 if ~isempty(figures)
0078     for k=1:length(figures)
0079         bayes_parm_editor(figures(k), 'finish_request');
0080     end
0081 end
0082 
0083 % Head figures close
0084 figures = inner_get_valid_handle(data.pa_head_fig);
0085 if ~isempty(figures)
0086     for k=1:length(figures)
0087         pa_head_close(figures(k));
0088     end
0089 end
0090 
0091 % Current figures close
0092 figures = inner_get_valid_handle(data.current_fig);
0093 if ~isempty(figures)
0094     for k=1:length(figures)
0095         current_gui_delete(figures(k));
0096     end
0097 end
0098 
0099 % Tools figures close
0100 figures = inner_get_valid_handle(data.tools_fig);
0101 if ~isempty(figures)
0102     for k=1:length(figures)
0103         set(0, 'CurrentFigure', figures(k));
0104         tool_launcher('exit');
0105     end
0106 end
0107 
0108 % Batch builder close
0109 figures = inner_get_valid_handle(data.batch_fig);
0110 if ~isempty(figures)
0111     for k=1:length(figures)
0112         delete(figures(k));
0113     end
0114 end
0115 
0116 % project mgr figure close
0117 delete(fig);
0118 
0119 function [handles] = inner_get_valid_handle(handles)
0120 % check and return valid figure handles
0121 % [USAGE]
0122 %    handles = inner_get_valid_handle(<handles>);
0123 % [IN]
0124 %    handles : figure handles
0125 % [OUT]
0126 %    handles : valid handles
0127 
0128 % remove empty entry
0129 empty_ix = isempty(handles);
0130 handles(empty_ix) = [];
0131 
0132 % extract valid handle list
0133 valid_ix = find(ishandle(handles) == 1);
0134 handles = handles(valid_ix, :);

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