%
% stack: builder layer-text
%
"Cuttop.html" *ctonwpre
%
% stack: layer-text builder guide-post guide-pre
%
% now Cton has: code-group closure object
%
"___Object___" [()] replall
"wdivA" log)(
"___Backer___"
[()] _Cton.Root ofcton &".obj" lookin
{
%
% found the object, cton settings were read
%
  "images/" &_Cton.Root &"/" &_Cton.Image ".png" reextend
}
{
%
% the object could not be found
%
 "images/unknown.png"
} ifelse
replall
"wdivB" log)(
"___Normal___"
"images/" &_Cton.Root &"/" &_Cton.Image
"_n.png" reextend
replall
"wdivC" log)(
%
% stack: layer-text builder guide-post guide-pre
%
"___dExtend___"
empty
sixth
"ckhidden " &_Cton.Layer &" in" log)(
"_hidden_" found)?
{
 &"visibility: hidden;"
} if
replall   
"wdivD" log)(
%
% stack: layer-text builder guide-post guide-pre
%
"___DivClass___"
" divclass"
sixth
"ckclass " &_Cton.Layer &" in" log)(
"_&" right$ "_" left$
any?
{
 ^" " &
} if
replall
"wdivE" log)(

%
% stack: layer-text builder guide-post guide-pre
%

fourth
"_gallery_" found)?
{

 "Cuttor.html" ofcut read
 "|=|" slicex
%
% stack: layer-text builder guide-post guide-pre gal-post gal-pre
%
% now Cton has: code-group closure object
%
 "___Object___" [()] replall

 empty
 "___gExtend___" exch replall   

%
% stack: layer-text builder guide-post guide-pre gal-post gal-pre
%
 "___GalClass___"
 " galclass"
 replall
"wdivF" log)(
 join2)

} if
%
% stack: layer-text builder guide-post guide-pre
%

fourth
"_iframe_" found)?
"wdivG" log)(
{

 "Cuttos.html" ofcut read
 "|=|" slicex
%
% stack: layer-text builder guide-post guide-pre gal-post gal-pre
%
% now Cton has: code-group closure object
%
 "___Object___" [()] replall

 empty
 seventh
 "_scrolls_" found)?
 {
 }
 {
  &"overflow: hidden;"
 } ifelse

 "___fExtend___" exch

 replall   
"wdivH" log)(

%
% stack: layer-text builder guide-post guide-pre gal-post gal-pre
%
 "___IfrClass___"
 " falclass"
 replall
"wdivK" log)(
 join2)

} if
%
% stack: layer-text builder guide-post guide-pre
%
*ctonwpst
"wdivZ" log)(
%
% stack: builder layer-text
%