%
% not in buttoner lookup, check if it has states
%
 "h" _Cton.Root ofcton &"_" [()] & &".sta" lookin
"butG" log)(
 {
%
% this object has states, make a button for this object
%
% stack: builder layer-text
%
  exch
%
% stack: layer-text builder
% 
  [()] _Cton.Root ofcton &".obj" lookin
"butH" log)(
  {
%
% stack: layer-text builder
% 
   "Cutton.html" ofcut read
   "|=|" slicex
%
% stack: layer-text builder guide-post guide-pre
%
% now Cton has: code-group closure object
%
   "___Object___" [()] replall
   "___Backer___"
   "images/" &_Cton.Root &"/" [()] "_sprite.png" reextend &
   replall
   "___iExtend___" "" replall
   "___dExtend___" "" replall
   "___DivClass___"
   " bdivclass"
   eighth "_&" right$ "_" left$
   any?
"butI" log)(
   {
    ^" " &
   } if
   replall
   "___ImgClass___" " bimgclass" replall
   "___LinkClass___" " blinkclass" replall
   "___Alt___"
   [()]
   dup _Cton.Root ofcton &".alt" lookin
"butJ" log)(
   {
    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
%
"butK" log)(
  } if
  exch
%
% stack: builder layer-text
%
 } if