%
% all states and objects are summarized
% parse the mxml guide to produce the Feathers objects
%

"N" *ctonmxms

"I" *ctonmxms

"S" *ctonmxms

%
% cycle through objects, creating a url loader (non-state object)
% or button
%
empty !Cton.Mxml
_Cton.Objer <_>
countup
{
 pop
 dup _Cton.Objer <> pop
 !Cton.Object
%
% are there states for this object
%
"Cton.obj#" &_Cton.Object _
_Cton.Path
".sta" ^_Cton.Object ^"_" reextend write
 "n" "Cton.obj#" &_Cton.Object _ <>
 {
%
% has states, create a button
%
% create the object that all the states are linked to
% this is a feathers button
%
  _Cton.Smodel
  "___Button___" _Cton.Object replall
  *ctondimn
  &:Cton.Mxml
 }
 {
%
% no states for this object, uses an image loader
%
  _Cton.Index negative
  {
   _Cton.Imodel
   "___Object___" _Cton.Object -1 right replall
   "___Font___" "Helvetica"
   _Cton.Layer &"_" "Font-" found)?
   {
    pop _Cton.Layer &"_" "Font-" right$ "_" left$
   } if
   replall
   "___Color___" "0x222222"
   _Cton.Layer &"_" "Color-" found)?
   {
    pop _Cton.Layer &"_" "Color-" right$ "_" left$
   } if
   replall
   "/" &"*" slice "*" &"/" left$
   exch
   *ctondimn
   &:Cton.Mxml
   _Cton.Object -1 right _Cton.Objer <> pop
   *ctondimn
   ^:Cton.TextVars   

  }
  {
   _Cton.Nmodel
   "___Object___" _Cton.Object replall
   "___Image___"
   "images/" &_Cton.Root &"/"
   _Cton.Image ".png" reextend &
   replall
   *ctondimn
   &:Cton.Mxml
  } ifelse

 } ifelse
} for
_Cton.Mxml ^:Cton.Output

%
% use the next static section of mxml in outgoing
%
"B" *ctonmxmu

"___Texting___" _Cton.TextVars replall
"___Rooted___" _Cton.Root replall
"___StartH___" _Cton.Root "_" right$ replall
^:Cton.Output

*ctonpmod

%
% use the next static section of mxml in outgoing
%
"E" *ctonmxmu
"___Rooted___" _Cton.Root replall
^:Cton.Output

"Q" *ctonmxmt

%
% cycle through objects, creating a url loader (non-state object)
% or button
%
empty !Cton.Mxml
_Cton.Objer <_>
countup
{
 pop
 dup _Cton.Objer <> pop
 !Cton.Object
%
% are there states for this object
%
"Cton.obj#" &_Cton.Object _
_Cton.Path
".sta" ^_Cton.Object ^"_" reextend write
 "n" dup !Cton.Stixer "Cton.obj#" &_Cton.Object _ <>
 {
  *ctonmxmw &:Cton.Mxml
  "h" dup !Cton.Stixer "Cton.obj#" &_Cton.Object _ <> pop *ctonmxmw &:Cton.Mxml
  "p" dup !Cton.Stixer "Cton.obj#" &_Cton.Object _ <> pop *ctonmxmw &:Cton.Mxml
  "c" dup !Cton.Stixer "Cton.obj#" &_Cton.Object _ <> pop *ctonmxmw &:Cton.Mxml
  "u" dup !Cton.Stixer "Cton.obj#" &_Cton.Object _ <> pop *ctonmxmw &:Cton.Mxml
 }
 {
  *ctonmxmv &:Cton.Mxml
 } ifelse

} for
_Cton.Mxml ^:Cton.Output

%
% use the next static section of mxml in outgoing
%
"G" *ctonmxmu
"___Rooted___" _Cton.Root replall
^:Cton.Output

"U" *ctonmxmt

%
% cycle through objects, creating a url loader (non-state object)
% or button
%
_Cton.Objer <_>
countup
{
 pop
 !Cton.Object
%
% are there states for this object
%
 "n" "Cton.obj#" &_Cton.Object _ <>
 {
%
% has states
%
 }
 {
%
% no states, add the texture
%
  _Cton.Object _Cton.Objer <> pop
  _Cton.Index negative
  {
  }
  {

  _Cton.Umodel
  "___Object___" _Cton.Object replall
  "___Image___" _Cton.Image ".png" reextend replall
  ^:Cton.Output
  } ifelse
 } ifelse
} for

"T" *ctonmxmt

%
% cycle through objects, creating a url loader (non-state object)
% or button
%
_Cton.Objer <_>
countup
{
 pop
 !Cton.Object
%
% are there states for this object
%
 "n" "Cton.obj#" &_Cton.Object _ <>
 {
%
% has states, create a button
%
% add the textures for the button states
%
  _Cton.Tmodel
  "___Button___" _Cton.Object replall
  ^:Cton.Output
 }
 {
%
% no states
%
 } ifelse
} for
%
% use the next static section of mxml in outgoing
%
"F" *ctonmxmu
^:Cton.Output

_Cton.Output

"___CONTROL___" _Cton.Root "_" left$ replall

_Cton.Path

".mxml" reextend write