render-grid-cell ( cpu os quot -- xml )


Vocabulary
webapps.mason.grids

Inputs
cpuan object
osan object
quotan object


Outputs
xmlan object


Definition


: render-grid-cell ( cpu os quot -- xml )
( cpu os -- url label ) call-effect 2dup and [
link 1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml
] [
2drop T{ xml-chunk
{ seq
V{
""
T{ tag { name ~name~ } { attrs ~attrs~ } }
""
}
}
}
] if ;