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

%   Copyright 1984-2000 The MathWorks, Inc. 
%   $Revision: 1.8 $  $Date: 2000/08/01 22:09:52 $
%   J.H. Roh 


UD = getscribeobjectdata(A.figStoreHGHandle);

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