function theSuperObject = super(theObject)

% super -- Super-object of an object.
%  super(theObject) returns the super-object
%   of theObject, or [] if none exists.

% Copyright (C) 1996 Dr. Charles R. Denham, ZYDECO.
%  All Rights Reserved.
%   Disclosure without written consent from the
%    copyright owner does not constitute publication.

if nargin < 1, help super, return, end

if isobject(theObject)
   theStruct = struct(theObject);
  else
   theStruct = theObject;
end

f = fieldnames(theStruct);
if ~isempty(f)
   s = getfield(theStruct, f{length(f)});
   if ~isobject(s), s = []; end
end

if nargout > 0
   theSuperObject = s;
  else
   disp(s)
end