www.gusucode.com > mbclayouts 工具箱 matlab 源码程序 > mbclayouts/@xregtoolbarlayout/repack.m

    function obj = repack(obj)
%  Synopsis
%     function obj = repack(obj)
%     
%  Description
%     This function reapplies the packing command to the objects in question

%  Copyright 2000-2010 The MathWorks, Inc. and Ford Global Technologies, Inc.


cdata=get(obj.xregcontainer,'containerdata');
h = cdata.elements;
pos= cdata.innerposition;
tbHT=obj.tb.DesiredHeight;
sw=obj.rtP.info.SpacerW;

pnlpos = [pos(1) pos(2)+pos(4)-tbHT-2 pos(3) tbHT+2];
set(obj.panel,'Position',pnlpos);
if sw
   vis=get(obj.panel,'Visible');
   set(obj.spacer,'Visible',vis,'Position',[pos(1) pos(2)+pos(4)-tbHT-2-sw pos(3) sw]);   
else
   set(obj.spacer,'Visible','off'); 
end

% pass on sizes to subobjects
% this object only supports one contained object.  Any others are ignored
if ~isempty(h)
   set(h{1},'Position',pos-[0 0 0 tbHT+2+sw]);
end