34 lines
968 B
Plaintext
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>
|