function A = subsasgn(A,S,B)
%FIGOBJ/SUBSASGN

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.6 $  $Date: 1997/12/06 00:40:45 $
%   B.A. Jones & J.H. Roh 4-25-97.



switch S.type
case '.'
   switch lower(S.subs)
   case 'notes'
      A.Notes = B;
   case 'date'
      A.Date = B;
   case 'origin'
      A.Origin = B;
   case 'savedposition'
      A.SavedPosition = B;
   case 'dragobjects'
      A.DragObjects = B;
   otherwise
      hgObj = A.scribehgobj;
      A.scribehgobj = subsasgn(hgObj,S,B);
   end
end
