function val = class(hndl,varargin)
%HANDLE/CLASS

%   Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.11 $  $Date: 2000/08/01 22:09:55 $
%   J.H. Roh & B.A. Jones 4-25-97.

if nargin==1
   if ~isempty(hndl)
      if length(hndl)>1
         hndl = hndl(1);
      end
      ud = getscribeobjectdata(hndl.HGHandle);
      MLObj = ud.ObjectStore;
      val = class(MLObj);
   else
      val = 'scribehandle';
   end
else
   val = builtin('class',hndl,varargin{:});
end