%
% cycle through all children for xml
%
% stack: build-str
%
% preserve the reference to the parent form above us in the tree
%
_Plat.Form [Push]

_\ seq121 Tree._First
{
 {
%
% stack: build-str cur-node
%
  !\

%
% stack: build-str
%
  "op" \_

  <
  |Root
%
% root of the plat, not processed but may be parent
% of first-level plats
%
  |Form
%
% windows form, with associated Mep activity
%
% size the application form as percentages of screen
%
   this(
%
% stack: plat-mep build-str
%
   _\\ !Plat.Form
%
% stack: plat-mep build-str
%
   *platsize
%
% stack: plat-mep build-str x y w h
%
   _Plat.Form *panelfrm

%
% stack: plat-mep build-str
%
   _Plat.Form quoter &" *panelfrm" &&;

%
% float the form above the parent form in this plat
%
   second with

   "op" Tree._Parent Tree._ValueOf
   <
   |Root
%
% this is the plat header, should float above Default
%
    _Plat.Form
    <
    |Default
    > not
    {

     _Plat.Form with true *panelflt

     "true *panelflt" &&;

    } if
   > not
   {
%
% this is another form, use it to anchor this form
%

    Tree.__ quo&spc _Plat.Form quoter & &" false *panelflt" &&;

    Tree.__ _Plat.Form false *panelflt

   } if

   this)

  |Panel
%
% the Zpanel .swf Flash application seated in a Flash Player
% within Windows Form (StdComm type)
%
   this(

   *platsize

   _Plat.Form with

   *panelsub

   "*panelsub" &&;

   this)

  |Tree
%
% within StdTree type of form, Tree is the main component
% size the main element of form and make visible
% the Mep has already been set by the parent Form
%
   this(
   *platsize
   _Plat.Form with  
   *paneltre
   "*paneltre" &&;
   this)

  |Free
%
% within StdFree type of form, Tree is the main component
% size the main element of form and make visible
% the Mep has already been set by the parent Form
%
   this(
   *platsize
   _Plat.Form with  
   *paneltre
   "*paneltre" &&;
   this)

  > pop

%
% no matter what element, cycle through the children
%
  *=

%
% children processed, next sibling or exit if none
%
  final\?
  ?

 } loop
%
% remnant of loop exit
%
 pop

} if
%
% stack: entry-node build-str
%
exch !\
%
% stack: build-str
%
% restore the reference to the parent form above us in the tree
%
[Pop] !Plat.Form