%
% process the buttons ordinally until not in button lookup
%
  0 !Cton.Bindex

  exch
%
% stack: layer-text builder
%
"butC" log)(
  {
   [()] +Cton.Bindex &
   _Cton.Root ofcton &".obj" lookin not ?
%
% stack: layer-text builder
%
   "Cutton.html" ofcut read
   "|=|" slicex
"butD" log)(
%
% stack: layer-text builder guide-post guide-pre
%
% now Cton has: code-group closure object
%
   "___Object___" [()] &_Cton.Bindex replall
   "___Normal___"
   "images/" &_Cton.Root &"/" [()] &_Cton.Bindex
   "_n.png" reextend &
   replall
   "___Backer___"
   "images/" &_Cton.Root &"/" [()] &_Cton.Bindex
   "_sprite.png" reextend &
   replall
   "___dExtend___" "" replall
   "___iExtend___" "" replall
   "___DivClass___"
   " bdivclass"
   eighth "_&" right$ "_" left$
   any?
   {
    ^" " &
   } if
   replall
   "___ImgClass___" " bimgclass" replall
   "___LinkClass___" " blinkclass" replall
"butE" log)(
   "___Alt___"
   [()] &_Cton.Bindex
   dup _Cton.Root ofcton &".alt" lookin
   {
    pop
    _Cton.AltText
   } if
   replall
%
% stack: layer-text builder guide-post guide-pre
%
   ^3) exch
%
% stack: layer-text builder guide-post
%
   &
%
% stack: layer-text builder
%
  } loop
  exch
"butF" log)(
%
% stack: builder layer-text
%