contrib/furnace/tools/browser.fhtml

   1 <% USING: namespaces furnace:browser words help kernel tools sequences io
   2 html ; %>
   3
   4 <form id="main" action="browse" method="get">
   5     <table width="100%">
   6         <tr>
   7             <th align="left">Vocabularies</th>
   8             <th align="left">Words</th>
   9             <th align="left">Documentation</th>
  10         </tr>
  11         <tr>
  12             <td valign="top" style="width: 200px;">
  13                 <% "vocab" get vocab-list %>
  14             </td>
  15             <td valign="top" style="width: 200px;">
  16                 <% "word" get "vocab" get word-list %>
  17             </td>
  18             <td valign="top">
  19                 <% "word" get "vocab" get lookup [ see-help ] when* %>
  20             </td>
  21         </tr>
  22     </table>
  23     <h2>Apropos</h2>
  24     <input type="field" name="apropos" /><br/>
  25     <%
  26         "apropos" get dup empty? [
  27             drop
  28         ] [
  29             <b> "Results for " write dup write ":" write </b> <br/>
  30             apropos
  31         ] if
  32     %>
  33 </form>