www.pudn.com > LPCToolbox.rar > ACT_APDLG.M

 
function act_apdlg(action) 
global Ap Handle 
 
if strcmp(action, 'apply') 
 uih = Handle.apitems; 
 n = length(uih); 
 
 for i=1:n, 
   str = get(uih(i),'string'); 
 
   if strcmp(get(uih(i),'style'), 'edit') 
     s = sprintf('%s = %s;', Handle.apitemtxt{i}{3}, str); 
     eval(s);      
   else % if popupmenu 
     boolval = get(uih(i), 'value')-1; 
     s = sprintf('%s = %d;', Handle.apitemtxt{i}{3}, boolval); 
     eval(s); 
   end 
 end 
 
 if isfield(Handle, 'rcfig') & ishandle(Handle.rcfig), 
   delete(Handle.rcfig);  Handle.rcfig = -1; 
 end 
 if isfield(Handle, 'pksfig') & ishandle(Handle.pksfig), 
   delete(Handle.pksfig);  Handle.pksfig = -1; 
 end 
 rcfig_draw; 
end 
 
% elseif strcmp(action, 'cancel') 
 
delete(Handle.apdlg); 
Handle.apdlg = -1;