<% USING: namespaces kernel io sequences generic words
prettyprint furnace parser ; %>
<% "model" get dup sequence? not [ unparse %>
New
<% ] [ %>
New
<% "model" get dup first class dup
word-vocabulary use+ "slot-names" word-prop %>
<% [ %>| <% write %> | <% ] each %>
<% [ %>
<% dup tuple-slots [ %>| <% write %> | <% ] each %>
<% dup crud-index swap class dup "crud-index" word-prop swap unparse %>
Show |
Edit |
Delete |
<% ] each %>
<% ] if %>