function doresize(HG)
%DORESIZE Calls figobj doresize function.

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.7 $  $Date: 1998/10/22 22:23:06 $
%   J.H. Roh & B.A. Jones 5-22-97.

ud = getappdata(HG,'ScribeObjectData');
if ~isempty(ud)
   obj = ud.ObjectStore;
   obj = doresize(obj);
   setappdata(HG,'ScribeObjectData',ud);
else
   % probably here because the figure has been saved using
   % print -dmfile and reloaded.
   
   % create a new figobj object
   FH = scribehandle(figobj(HG));
   set(HG,'DoubleBuffer','on');
   
   % find the arrows and restore them
   arrowheads = findall(HG,'Tag','ScribeArrowlineHead');
   for anArrowHead = arrowheads'
      A = scribehandle(arrowline(anArrowHead));
      set(A,'Draggable',1);
      set(A,'DragConstraint','');
   end
   
   % resize
   doresize(FH);
   
end