setparams.m

来自「细胞生长结构可视化工具箱-MATLAB Toolbox1999.zip」· M 代码 · 共 50 行

% function SetParams(action) - callback functions for parameters window
function SetParams(action)

switch(action)
case 'Ok'
   App = findobj('Name','GCSMainFigure');
   if isempty(App)
   	uiwait(errordlg('Unable to communicate with main application!'));  
   else
      GcsProj = get(App,'UserData');
      ebhandle = findobj('Tag','eb');
      eb = get(ebhandle,'String');
      GcsProj.Gcs.eb = str2num(eb);
      GcsProj.Gcs.en = str2num(get(findobj('Tag','en'),'String'));
      GcsProj.Gcs.smooth = str2num(get(findobj('Tag','smooth'),'String'));
      GcsProj.Gcs.metric = str2num(get(findobj('Tag','LNorm'),'String'));
      GcsProj.Gcs.NoPts = str2num(get(findobj('Tag','CMapRes'),'String'));
      GcsProj.Gcs.beta = str2num(get(findobj('Tag','Decay'),'String'));
      GcsProj.Gcs.alpha = str2num(get(findobj('Tag','alpha'),'String'));
      
      set(App,'UserData',GcsProj);
   end
   close(gcf);
case 'Cancel'
   close(gcf);
case 'Display'
	App = findobj('Name','GCSMainFigure');
   if isempty(App)
   	uiwait(errordlg('Unable to communicate with main application!'));  
   else
      GcsProj = get(App,'UserData');
      if ~isempty(GcsProj)
	      set(findobj('Tag','eb'),'String',GcsProj.Gcs.eb);
	      set(findobj('Tag','en'),'String',GcsProj.Gcs.en);
	      set(findobj('Tag','smooth'),'String',GcsProj.Gcs.smooth);
	      set(findobj('Tag','LNorm'),'String',GcsProj.Gcs.metric);
	      set(findobj('Tag','CMapRes'),'String',GcsProj.Gcs.NoPts);
	      set(findobj('Tag','Decay'),'String',GcsProj.Gcs.beta);
         set(findobj('Tag','alpha'),'String',GcsProj.Gcs.alpha);
      else
         uiwait(errordlg('First Create or load a network!')); 
         close(gcf);
      end
   end
otherwise
   	uiwait(errordlg('SetParams option not recognmised!'));  
end