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

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.9 $  $Date: 1998/06/03 22:23:52 $
%   J.H. Roh & B.A. Jones 4-25-97.

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