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

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.6 $  $Date: 1998/06/03 22:23:51 $
%   J.H. Roh 


UD = getappdata(A.figStoreHGHandle,'ScribeObjectData');

switch S.subs
case 'ObjectStore'
   UD.ObjectStore = B;
   setappdata(A.figStoreHGHandle,'ScribeObjectData',UD);
otherwise
   setfield(UD,S.subs,B);
   setappdata(A.figStoreHGHandle,'ScribeObjectData',UD);   
end
