factor/libs/furnace/tools/browser.fhtml

34 lines
968 B
Plaintext

<% USING: namespaces furnace:browser words help kernel tools sequences io
html ; %>
<form id="main" action="browse" method="get">
<table width="100%">
<tr>
<th align="left">Vocabularies</th>
<th align="left">Words</th>
<th align="left">Documentation</th>
</tr>
<tr>
<td valign="top" style="width: 200px;">
<% "vocab" get vocab-list %>
</td>
<td valign="top" style="width: 200px;">
<% "word" get "vocab" get word-list %>
</td>
<td valign="top">
<% "word" get "vocab" get lookup [ help ] when* %>
</td>
</tr>
</table>
<h2>Apropos</h2>
<input type="field" name="apropos" /><br/>
<%
"apropos" get dup empty? [
drop
] [
<b> "Results for " write dup write ":" write </b> <br/>
apropos
] if
%>
</form>