%
% stack: area-vec pep
%
% focus on the named pep
%
true exch *freeacts
%
% establish positioning of subform and tree within subform
%
% stack: area-vec
%

*

%
% stack: perx pery perw perh
%
perscreen App.DimSub
%
% stack: wperx wpery wperw wperh
%
*treeregn