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

波变换

开发平台:

Matlab

  1. function mousefrm(h,forme)
  2. %MOUSEFRM Change mouse aspect.
  3. %   MOUSEFRM(H,F)
  4. %   H = vector of handles (figures or root).
  5. %   F = string for pointer aspect : 'arrow', 'watch', ....
  6. %   MOUSEFRM(H) is equivalent to MOUSEFRM(H,'arrow').
  7. %   MOUSEFRM is equivalent to MOUSEFRM(0,'arrow').
  8. %   M. Misiti, Y. Misiti, G. Oppenheim, J.M. Poggi 01-May-96.
  9. %   Last Revision: 01-Jun-1998.
  10. %   Copyright 1995-2002 The MathWorks, Inc.
  11. % $Revision: 1.12 $
  12. if     nargin==0 , forme = 'arrow'; h = 0; 
  13. elseif nargin==1 , forme = 'arrow';
  14. end
  15. allfig = wfindobj('figure');
  16. if any(h)       
  17.     hind = wcommon(h,allfig);
  18.     h = h(hind);
  19. else
  20.     h = allfig;
  21. end
  22. set(h,'Pointer',forme);