function gui_lc (action)%% This file is used by FASTICAG% This file holds the callbacks for load-dialog% @(#)$Id: gui_lc.m,v 1.4 2003/09/11 12:01:19 jarmo Exp $%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Global variables% Handle to the windowglobal hf_FastICA_Load;% Handles to some of the controls in windowglobal he_FastICA_file;% Needed handles from the main figureglobal ht_FastICA_mixedStatus;% Needed handles from the advOpt figureglobal hb_FastICA_initGuess;global ht_FastICA_initGuess;global hpm_FastICA_initState;% The needed main variablesglobal g_FastICA_mixedsig;global g_FastICA_mixedmean;% What is the load type of load dialogglobal g_FastICA_loadType;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% This should not take long...watchonInFigure = watchon;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%switch action%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%case 'Load'  varName = get(he_FastICA_file, 'String');      % The name of the variable to be loaded command=['evalin(''base'',''assignin(''''caller'''',''''data'''',' varName ')'')']; eval(command,'fprintf(''Variable not found in MATLAB workspace, data not loaded!\n'');data=[];');                          % Variable is copyed to 'data' if length (size (data)) > 2,   fprintf (['Input data can not have more than two dimensions, data' ...	     ' not loaded.\n']);   data = []; end if any (any (isnan (data))),   fprintf ('Input data contains NaN''s, data not loaded.\n');   data = []; end if isempty(data)  % if there was no name given...   watchoff (watchonInFigure);   % There used to be a 'break' statement here, but it resulted in   % errors in more recent version of Matlab -- jarmo   return; end switch g_FastICA_loadType  case  'data'                                % New data   g_FastICA_mixedsig = data;   if ~isa (g_FastICA_mixedsig, 'double')     fprintf ('Warning: converting input data into regular (double) precision.\n');     g_FastICA_mixedsig = double (g_FastICA_mixedsig);   end   set(ht_FastICA_mixedStatus, 'String', '');   g_FastICA_mixedmean = [];                 % New data - so that means ...   gui_cb NewData;                                  case 'guess'                                % New initial guess   set(hb_FastICA_initGuess, 'UserData', data);     % Since we loaded new initial   set(ht_FastICA_initGuess, 'String', 'Loaded');   % guess, we wan't to use it too   set(hpm_FastICA_initState, 'Value', 2);          % ... set initState to 'guess' end close(hf_FastICA_Load);                       % close the dialog % Use return to avoid reaching the watchoff statement at the end % (There used to be a 'break' statement here, but it resulted in % errors in more recent version of Matlab -- jarmo) return;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%case 'Cancel'  close(hf_FastICA_Load);                       % do nothing just exit % Use return to avoid reaching the watchoff statement at the end % (There used to be a 'break' statement here, but it resulted in % errors in more recent version of Matlab -- jarmo) return;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%case 'Help' % Which help do we show? switch g_FastICA_loadType  case 'data'   gui_help('gui_lc_data');  case 'guess'   gui_help('gui_lc_guess'); end%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%end    % switchwatchoff (watchonInFigure);