function B = subsref(A,S)
%FIGHANDLE/SUBSREF

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

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

switch S.subs
case 'HandleStore'
   B = UD.HandleStore;
case 'ObjectStore'
   B = UD.ObjectStore;
case 'Figure'
   B = get(A.figStoreHGHandle,'Parent');
case 'HGHandle'
   B = A.figStoreHGHandle;
otherwise
   B = getfield(UD,S.subs);
end
