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

 
function menuactions(action) 
global Cs Handle Ap PFCvars RFDvars Filelist 
 
if strcmp(action, 'nextsnd') 
 
  [err,msg] = frwrite; 
  if err,  
   set(Handle.pksfigtxt, 'string', 'Unable to save region'); 
    reply = questdlg({msg, 'Ignore problem and go to next sound?'}, ... 
                     'Error', 'Yes', 'No', 'Yes'); 
    if strcmp(reply, 'No') return; end 
  else 
    set(Handle.pksfigtxt, 'string', ... 
        sprintf('Region confirmed, saved in %s', Cs.datfilename)); 
  end 
 
  err = -1; i = 1; 
  while (err ~= 0)  
    [err,msg] = loadsound(Cs.sndindex+i); i=i+1; 
    if err, questdlg(msg, 'Error', 'Ok', 'Ok'); end 
    if (err == 1), return; end % end of filelist 
  end 
 
  rcfig_draw; 
   
elseif strcmp(action, 'prevsnd') 
 
  err = -1; i = 1; 
  while (err ~= 0)  
    [err,msg] = loadsound(Cs.sndindex-i); i=i+1; 
    if err, questdlg(msg, 'Error', 'Ok', 'Ok'); end 
    if (err == 2), return; end % beginning of filelist 
  end 
 
  rcfig_draw; 
 
elseif strcmp(action, 'playsnd') 
 
  errordlg('Sound playback not yet implemented'); 
 
elseif strcmp(action, 'redo_filtorder') 
 
  if ishandle(Handle.rcfig) 
    figure(Handle.rcfig); 
  else 
    rcfig_draw; 
  end 
 
elseif strcmp(action, 'changeparams') 
 
  make_apdlg; % nonmodal 
 
elseif strcmp(action, 'togglespcgm') 
 
  Ap.showspcgm = ~Ap.showspcgm; 
  if Cs.ncoeffs > 0 
    pksfig_draw;  
  end 
 
elseif strcmp(action, 'quit') 
 
  % ignore current sound 
  close all hidden; 
  uiconfig('reset'); 
  clear global Ap Cs Handle PFCvars RFDvars Filelist 
 
else 
  % ignore 
end