365 lines
8.2 KiB
HTML
365 lines
8.2 KiB
HTML
|
<html>
|
||
|
|
<!-- Created by: Erick Gallesio, 1-Sep-1995 -->
|
||
|
|
<head>
|
||
|
|
<title>Demo directory README (Version 3.1 - July 1996)</title>
|
||
|
|
</head>
|
||
|
|
<body bgcolor="#FFFFFF">
|
||
|
|
<h1><img src="STk-normal.gif"> Demo directory</h1>
|
||
|
|
<pre>
|
||
|
|
|
||
|
|
|
||
|
|
</pre>
|
||
|
|
<p>This directory contains demo programs for <b>STk</b>.
|
||
|
|
|
||
|
|
<p>If you want to run a demo <STRONG>BEFORE</STRONG> a complete
|
||
|
|
installation of the <b>STk</b> package, you must use the
|
||
|
|
<pre> ../Src/test-stk</pre>
|
||
|
|
command to run the interpreter.
|
||
|
|
|
||
|
|
<p><b>If you view this file with the STk HTML browser, you can click on
|
||
|
|
each given command to launch a demo.</b><p>
|
||
|
|
To use the STk HTML browser, just type:
|
||
|
|
<pre> ../Src/test-stk -f hbrowse README.html</pre>
|
||
|
|
<p><I>Happy STking </I>
|
||
|
|
|
||
|
|
<hr></p>
|
||
|
|
<h2>
|
||
|
|
<center><font COLOR="red">STk demos</font></center>
|
||
|
|
</h2>
|
||
|
|
<hr>
|
||
|
|
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> browse.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> a simple Unix file browser
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f browse.stk &")>
|
||
|
|
../Src/test-stk -f browse.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> colormap.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> a simple color builder
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f colormap.stk &")>
|
||
|
|
../Src/test-stk -f colormap.stk
|
||
|
|
</A>
|
||
|
|
<DT> Comment
|
||
|
|
<DD> On exit, the RGB value is printed on the sandard output
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> small-ed.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> A small editor to create enhanced text
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f small-ed.stk &")>
|
||
|
|
../Src/test-stk -f small-ed.stk
|
||
|
|
</A>
|
||
|
|
<DT> Comment
|
||
|
|
<DD> <STRONG> Does not work (still) with <I>STk</I> 3.0</STRONG>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> hanoi.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> Hanoi towers animation
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f hanoi.stk &")>
|
||
|
|
../Src/test-stk -f hanoi.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> hello.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> a simple button demonstration
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f hello.stk &")>
|
||
|
|
../Src/test-stk -f hello.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> showvars.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> a variable shower<br>
|
||
|
|
This program shows the value of three variables (named a,b and c)
|
||
|
|
Changing the value of one of these vars (with a set! for
|
||
|
|
instance) will redisplay its new value immediatly
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -load showvars.stk &")>
|
||
|
|
../Src/test-stk -load showvars.stk
|
||
|
|
</A>
|
||
|
|
<DT> Comment
|
||
|
|
<DT> Exit
|
||
|
|
<DD> type (exit) on the STk prompt
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> turtle.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> a Logo turtle package + some demo functions.
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f turtle.stk &")>
|
||
|
|
../Src/test-stk -f turtle.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> inspector.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> A simple demo of the inspector on Tk widgets
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f inspector.stk &")>
|
||
|
|
../Src/test-stk -f inspector.stk
|
||
|
|
</A>
|
||
|
|
<DT> Comment
|
||
|
|
<DD> <STRONG> Does not work (still) with <I>STk</I> 3.0</STRONG>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> mc-server.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> A multiple-clients server.
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "xterm -e ../Src/test-stk -load mc-server.stk &")>
|
||
|
|
../Src/test-stk -load mc-server.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> queens.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> The queens problem. You can do it yourself (and it will make
|
||
|
|
sure you follow the rules) or you can ask it to solve the
|
||
|
|
puzzle starting with a given board configuration.
|
||
|
|
<b>This code is a contribution of Grant Edwards</b>
|
||
|
|
<tt>(grante@rosemount.com)</tt>
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f queens.stk &")>
|
||
|
|
../Src/test-stk -f queens.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> stetris.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> This is a falling block game not unlike tetris(tm) :).
|
||
|
|
It is implemented in STk just to prove it can be done,
|
||
|
|
and as a challenge to TCLers.
|
||
|
|
It starts slowly and becomes faster and faster.
|
||
|
|
Have fun.
|
||
|
|
This code is a contribution of Harvey J. Stein(hjstein@math.huji.ac.il)
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f stetris.stk &")>
|
||
|
|
../Src/test-stk -f stetris.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> ttt.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> A 3D Tic-Tac-Toe, where the board is 4x4x4, a 3 dimensional board
|
||
|
|
of four planes with four rows and four columns each.
|
||
|
|
<B>This code is a contribution of Edin "Dino" Hodzic</B> <ehodzic@scu.edu>
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f ttt.stk &")>
|
||
|
|
../Src/test-stk -f ttt.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> server.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> A simple server showing how to use the socket package.
|
||
|
|
It creates a xterm window in which a read-eval-print-loop
|
||
|
|
is executed. When the window is closed or when an error occurs,
|
||
|
|
the socket is closed
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f server.stk &")>
|
||
|
|
../Src/test-stk -f server.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> term.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> A simple terminal emulator (a kind of xterm, but in a text widget).
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f ./term.stk &")>
|
||
|
|
../Src/test-stk -f term.stk
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> wtour.stk
|
||
|
|
<DT> Description
|
||
|
|
<DD> This is a rewrite of the Tcl/Tk wtour2.0 in Scheme/STk. Use the menus
|
||
|
|
to navigate through different lessons. You can make changes
|
||
|
|
to the lesson source code; click on the Apply button to see the results of
|
||
|
|
the changes.
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour &")>
|
||
|
|
../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<!-- --------------------------------------------------------------------------->
|
||
|
|
<hr>
|
||
|
|
<h2>
|
||
|
|
<center><font COLOR="red"> STklos demos </font></center>
|
||
|
|
</h2>
|
||
|
|
<hr>
|
||
|
|
<!-- --------------------------------------------------------------------------->
|
||
|
|
|
||
|
|
There are few demos of STklos. What is interesting is not what they do but
|
||
|
|
how they are programmmed (IMO).
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL>
|
||
|
|
<DT> File
|
||
|
|
<DD> widget.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> A tour of the Tk widgets. This demo shows all the Tk widgets
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f widget.stk &")>
|
||
|
|
../Src/test-stk -f widget.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> stklos-demo.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> a simple demo written in STklos
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f stklos-demo.stklos &")>
|
||
|
|
../Src/test-stk -f stklos-demo.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> stklos-demo2.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> another simple demo written in STklos
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f stklos-demo2.stklos &")>
|
||
|
|
../Src/test-stk -f stklos-demo2.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> hello.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> a rewriting of the hello.stk demo in STklos
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f hello.stklos &")>
|
||
|
|
../Src/test-stk -f hello.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> browse.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> a rewriting of the browse.stk demo in STklos
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f browse.stklos &")>
|
||
|
|
../Src/test-stk -f browse.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> calc.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> a very simple calculator
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f calc.stklos &")>
|
||
|
|
../Src/test-stk -f calc.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> compo-demo.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> A quick demo of the composite widgets which are in the STk release.
|
||
|
|
<BR>
|
||
|
|
<STRONG>This code is a contribution of </STRONG>
|
||
|
|
<TT><Drew.Whitehouse@anu.edu.au></TT>
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f compo-demo.stklos &")>
|
||
|
|
../Src/test-stk -f compo-demo.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> filebox.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> a simple program which uses the <File-box> compositeclass.
|
||
|
|
A <File-box> is a file requestor with file name completion.
|
||
|
|
It is a composition of various composite widget classes.
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f filebox.stklos &")>
|
||
|
|
../Src/test-stk -f filebox.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<DL><DT>File
|
||
|
|
<DD> tkcolor.stklos
|
||
|
|
<DT> Description
|
||
|
|
<DD> a simple color picker written in STklos. Clicking button 1 on the color
|
||
|
|
box sets the text color to that color; Clicking button 3 sets the background.
|
||
|
|
<DT> Run
|
||
|
|
<DD> <A expr=(system "../Src/test-stk -f tkcolor.stklos &")>
|
||
|
|
../Src/test-stk -f tkcolor.stklos
|
||
|
|
</A>
|
||
|
|
</DL>
|
||
|
|
|
||
|
|
<hr>
|
||
|
|
<address>eg@unice.fr</address>
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|