dotnot(varargin)

%

%Se DOTNOT for more help, (C) 2003 Peter Rydester, GPL License
%

function [varargout]=dotnot(varargin)
  dn.h=0;
  if nargin,
    h=double([varargin{:}]);    
    ok=ishandle(h(:));
    for idx=find(ok==0)',
      if round(h(idx))==h(idx),
	figure(h(idx));
	ok(idx)=1;
      end
    end    
    if any(ok==0),
      error 'DOTNOT: Can not create or use a dotnot object containing a non valid handle.';
    end
    dn.h=h;
  end  
  dn=class(dn,'dotnot');
  if nargout,
    varargout{1}=dn;
  end
  if nargout==0 & nargin==0,
    assignin('caller','Root',dn);
    return;
  end