%
% stack: builder layer-text
%
% the object name is on the left of the asterisk
%
[/]
%
% now Cton has: code-group closure
%
dup "*" left$ [(]
"Cuttot.html" *ctonwpre
%
% stack: layer-text builder guide-post guide-pre
%
% now Cton has: code-group closure object
%
"___Object___" [()] replall
"___Backer___"
[()] _Cton.Root ofcton &".mrk" lookin
{
%
% found the object, cton settings were read
%
 "images/" &_Cton.Root &"/" &_Cton.Image
}
{
%
% the object could not be found
%
 "images/unknown.png"
} ifelse
replall
"___Type___" "text" replall
"___Length___" _Cton.Text length) replall
"___dExtend___" "" replall
%
% stack: layer-text builder guide-post guide-pre
%
"___iExtend___"
""
sixth "_centered_" found)?
{
 &"text-align: center;"
} if
replall
"___DivClass___"
" ldivclass"
sixth "_&" right$ "_" left$
any?
{
 ^" " &
} if
replall
"___DropClass___" " drclass" replall

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