%
% stack:  builder
%
% now Cton has:
%
%%%"genhlist " count - & &" " log)(
%
% the Cton stack tracks the trailing delimiters
%
% start with first child of the code group
% reset search for indexed buttons
%
empty !Cton.Slicer
_\ dup [(]
empty [(]
%
% stack: builder code-group 
%
Tree._First
{
%
% now Cton has: code-group closure
%
% stack: builder first-node
%
 {
%
% stack: builder next-node
%
  !\
  _\\ &"_"
"ttex" log)(
  "@" found?
  {
%
% primary object type
%
% stack: builder layer-text
%
   dup "@" left$ [(]
%
% now Cton has: code-group closure object
%
% stack: builder layer-text
%
   "_div_" found?
   second "_iframe_" found)?
   or
   {
%
% stack: builder layer-text
%
    *ctonwdiv
   } if

%
% is primary object
%
% check for button gen layer, add it to button tracking lookup
%
   "_vert_" found?
   {
    _Cton.Buttoner [()] <?>
    {
     [()] quoter &" !Cton.ButRoot" &;
     &
     second quoter &" !Cton.ButLayer" &;
     &
     0 &" !Cton.ButIndex" &;
     &
     "true !Cton.ButParent" &;
     &
     !Cton.Buttoner
    } if
   }
   {
    "_horiz_" found?
    {
     _Cton.Buttoner [()] <?>
     {
      [()] quoter &" !Cton.ButRoot" &;
      &
      second quoter &" !Cton.ButLayer" &;
      &
      0 &" !Cton.ButIndex" &;
      &
      "true !Cton.ButParent" &;
      &
      !Cton.Buttoner
     } if
    } if
   } ifelse

%
% process any button set
%
% stack: builder layer-text
%
   *ctonwobj
%
% now Cton has: code-group closure object
%
/*
   [Pop] [Pop]
"<!-- "
&3
&" -->
" ^
   [(] [(]
*/
%
% now Cton has: code-group closure object
%
  }
  {
%
% not a primary object
%
empty [(]
%
% stack: builder layer-text
%
   *ctonwrkb
%
% now Cton has: code-group closure
%
% stack: builder layer-text
%
"befin" [Count] & log)(
   "_input_" found?
   {
%
% stack: builder layer-text
%
    *ctonidiv
   }
   {
   } ifelse
"befout" [Count] & log)(

%
% stack: builder layer-text
%
"dropin" [Count] & log)(
   "_dropdown_" found?
   {
%
% stack: builder layer-text
%
    *ctonldiv
   }
   {
   } ifelse
"dropout" [Count] & log)(

   [Pop] [Pop]
/*
"<!-- "
&3 &;
&_Cton.Slicer
&" -->
" ^
*/
   [(] [(]

  } ifelse
  pop
%
% now Cton has: code-group closure object
%
% stack: builder
%
  *ctonwebj
%
% stack: builder
%
% now Cton has: code-group closure object
%
  [/]
  _\ Tree.EndOf ?
 } loop
 pop
} if
%
% stack: builder
%
% now Cton has: code-group closure
%
% stack: builder
%
 [Pop]
 &
%
% now Cton has: code-group 
%
 [Pop] !\
%
% now Cton has: 
%
% stack: builder
%