wtbxappdata.m
上传用户:haiyisale
上传日期:2013-01-09
资源大小:3246k
文件大小:1k
源码类别:

波变换

开发平台:

Matlab

  1. function dataValue = wtbxappdata(option,fig,dataName,dataValue)
  2. %WTBXAPPDATA Cache for GUIDATA, SETAPPDATA, GETAPPDATA.
  3. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 31-Jan-2003.
  4. %   Last Revision: 03-Feb-2003.
  5. %   Copyright 1995-2004 The MathWorks, Inc.
  6. %   $Revision: 1.1.6.2 $  $Date: 2004/03/15 22:43:33 $
  7. figDATA = guidata(fig);
  8. switch option
  9.     case 'new'
  10. if ~isfield(figDATA,dataName)
  11.             figDATA.(dataName) = dataValue;
  12.             guidata(fig,figDATA);
  13. end
  14.         
  15.     case 'set' , 
  16.         figDATA.(dataName) = dataValue;
  17.         guidata(fig,figDATA);
  18.         
  19.     case 'get'
  20. if isfield(figDATA,dataName)
  21.             dataValue = figDATA.(dataName);
  22.         else
  23.             dataValue = '';
  24. end
  25.     case 'del'
  26. if isfield(figDATA,dataName)
  27.             dataValue = figDATA.(dataName);
  28.             figDATA = rmfield(figDATA,dataName);
  29.             guidata(fig,figDATA);
  30.         else
  31.             dataValue = '';
  32. end
  33. end