1 <% USING: namespaces io kernel words generic sequences
2 prettyprint furnace parser ; %>
6 <% dup tuple-slots over class dup
7 word-vocabulary use+ "slot-names" word-prop %>
11 <% [ %><tr><td><% write %>:</td><td><% write %></td></tr><% ] 2each %>
15 <% dup crud-index swap class dup "crud-index" word-prop swap unparse %>
16 <p><a href="<% 3dup write %>-edit?<% write %>=<% write %>">Edit</a> |
17 <a href="<% [ write %>-delete?<% write %>=<% write ] keep %>">Delete</a> |
18 <a href="<% dup write %>-new">New</a> | <a href="<% write %>-list">List</a></p>
20 <% ] [ %><p>No such tuple</p><% ] if* %>