<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Demo directory README (Version 3.99 - March 1998)</title>
</head>
<body bgcolor="#FFFFFF">
<h1><img src="STk-normal.gif"> Demo directory</h1>
<! Applet definition: This applet defines new function which can run a demo
using the SYSTEM function.
This is VERY DANGEROUS, but user can set security to a given level
when launching the browser.
Security is not yet finished and need some work
>
<script language="STk">
(lambda (parent url)
(eval '(define (Run x)
(system (string-append "../Src/test-stk " x "&")))
(global-environment))))
</script>
<! ------------------------------------------------------------------------------>
<pre>
</pre>
<h4>Content</h4>
<ul>
This directory contains the demo programs for <b>STk</b>.
There are several categories of demos available from here:
<ul>
<li> <a href="README.html#stk">STk demos</a>: They correspond to
program which don't use CLOS like object extension of
<b>STk</b>. These demo are quite simple and they often mimic
original Tcl/Tk demonstrations
<li> <a href="README.html#stklos">STklos demos</a>: These
demonstration programs use the STklos object Extension of
<B>STk</B>. The code of most of these demos has been kept short
to illustrate the basic of STklos programming.
<li> <a href="Html-Demos/main.html">Html demo</a>: This demo is
in fact an overview of STk/STklos that I have used once in a
presentation of STklos. The pages accessible from this link
present STk but also contains links or Scheme applets which
illustrate the kind of things that can be done with the STk
browser. Of course, to properly execute the applets contained
in theses pages, you need to run the STk Html browser
(see below).
</ul>
</ul>
<h4>Running demonstration programs without installing STk</h4>
<ul>
If you want to run a demo <STRONG>BEFORE</STRONG> a complete
installation of the <b>STk</b> package, you must use the shell
script <code>../Src/test-stk</code> in order to run the
interpreter (this shell script set some variables to run properly
the interpreter without installing it).
</ul>
<h4>Running demonstration programs in the STk web browser</h4>
<ul>
<b>STk</b> provides a simple Web browser which can be used to launch
the demo of this directory. If you are not running it now, you can
type the following command:
<pre> ../Src/test-stk -f S-scape README.html</pre>
at the shell prompt.
</ul>
<h2><a name="stk">1. STk demos</a></h2>
<h4>1.1 Basic STk demos</h4>
<UL>
<p><li>
<B><A name=hello>hello.stk</a></B>
<BR>
This is the traditional first program. This program creates a single button
that you can click on.
<BR>
<u>Run with </u>:
<a expr=(run "hello.stk")> ../Src/test-stk -f hello.stk </a>
<p><li>
<B><A name=browse>browse.stk</a></B>
<BR>
A simple Unix file browser. The code of this demo is less than a page.
<BR>
<u>Run with</u>:
<A expr=(run "browse.stk")>.../Src/test-stk -f browse.stk </A>
</UL>
<h4>1.2 Basics of STk programming</h4>
<UL>
<p><li>
<B>wtour.stk</B>
<BR>
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.
<BR>
<u>Run with</u>:
<A expr=(run "wtour.stk ../Contrib/STk-wtour")>
../Src/test-stk -f ./wtour.stk ../Contrib/STk-wtour
</A>
<BR><u>Comment</u>: This code is a contribution of <B>Suresh Srinivas</B>
<tt><ssriniva@cs.indiana.edu></tt>
</UL>
<h4>1.3 Client/Server Demos</h4>
<ul>
<p><li>
<b>server.stk</b>
<br>
A simple server showing how to use the socket package. It
creates an 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
<br>
<u>Run with</u>:
<A expr=(run "-no -f server.stk")> ../Src/test-stk -no -f server.stk </A>
<p><li>
<b>mc-server.stk</b>
<br>
A multiple-clients server. On Unix, you can use several telnet
sessions to <I>discuss</I> with the server. Each discussion
has its own dedicated channel. Type <tt>(exit)</tt> at the <b>STk</b>
when you want to exit the demo.
<br>
<u>Run with</u>:
<A expr=(system "xterm -e ../Src/test-stk -load mc-server.stk &")>
../Src/test-stk -load mc-server.stk </A>
</ul>
<h4>1.4 Fun and Games</h4>
<ul>
<p><li>
<b>turtle.stk</b>
<br>
A Logo turtle package + some demo functions.
<br>
<u>Run with</u>:
<A expr=(run "turtle.stk")> ../Src/test-stk -f turtle.stk </A>
<p><li>
<b>hanoi.stk</b>
<br>
Hanoi towers animation.
<br>
<u>Run with</u>:
<A expr=(run "hanoi.stk")> ../Src/test-stk -f hanoi.stk </A>
<p><li>
<b>queens.stk</b>
<br>
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.
<br>
<u>Run with</u>:
<A expr=(run "queens.stk")> ../Src/test-stk -f queens.stk </A>
<br>
<u>Comment</u>: This code is a contribution of <b>Grant
Edwards</b> <tt><grante@rosemount.com)></tt>
<p><li>
<b>stetris.stk</b>
<br>
This is a falling block game not unlike tetris(tm) :). It is
implemented in <b>STk</b> just to prove it can be done, and as a
challenge to TCLers. It starts slowly and becomes faster and
faster. Have fun.
<br>
<u>Run with</u>:
<A expr=(run "stetris.stk")> ../Src/test-stk -f stetris.stk </A>
<br>
<u>Comment</u>:
This code is a contribution of <B>Harvey J. Stein</B>
<tt><hjstein@math.huji.ac.il></tt>
<p><li>
<b>ttt.stk</b>
<br>
A 3D Tic-Tac-Toe, where the board is 4x4x4, a 3 dimensional
board of four planes with four rows and four columns each.
<br>
<u>Run with</u>:
<A expr=(run "ttt.stk")> ../Src/test-stk -f ttt.stk </A>
<br>
<u>Comment</u>:
This code is a contribution of <b>Edin "Dino" Hodzic</b>
<ehodzic@scu.edu>
</ul>
<h4>1.5 Misc </h4>
<ul>
<p><li>
<b>colormap.stk</b>
<br>
This is a simple color palette written in STk.
<br>
<u>Run with</u>:
<A expr=(run "colormap.stk")> ../Src/test-stk -f colormap.stk </A>
<br>
<u>Comment</u>: Note that this program is no more really useful since
<B>STk</B> offers now the function <tt>Tk:choose-color</tt>
which allow to choose a color by name or by value.
<p><li>
<b>small-ed.stk</b>
<br>
A small editor to create enhanced text
<br>
<u>Run with</u>:
<A expr=(run "small-ed.stk")> ../Src/test-stk -f small-ed.stk </A>
<br>
<u>Comment</u>:
This editor use a <I>ad-hoc</I> format for saving file and was
used for the help buttons of various widgets in old versions
of <B>STk</B>. It will not be developed anymore since the
preferred format for help is now HTML.
<p><li>
<b>showvars.stk</b>
<br>
A variable shower: this program shows the value of three
variables (named a,b and c) Changing the value of one of
these vars (with a <tt><b>set!</b></tt> for instance) will
redisplay its new value immediately.
<u>Run with</u>:
<A expr=(run "-load showvars.stk")>
../Src/test-stk -load showvars.stk </A>
<br>
<p><li>
<b>inspector.stk</b>
<br>
A simple demo of the inspector on Tk widgets
<br>
<u>Run with</u>:
<A expr=(run "inspector.stk")> ../Src/test-stk -f inspector.stk </A>
<br>
<u>Comment</u>:
<STRONG> Does not work with this version of <I>STk</I>
<BR>A new version of the inspector is in practically finished and
will be soon released.</STRONG>
<p><li>
<b>term.stk</b>
<br>
A simple terminal emulator (a kind of xterm, but in a text widget).
<br>
<u>Run with</u>:
<A expr=(run "term.stk")> ../Src/test-stk -f term.stk </A>
<br>
<u>Comment</u>: Users of <b>Glibc2 (aka libc6, or RedHat 5.0
users)</b>: This program has problems with new release of the
libc under Linux, if your shell has the line editing mode
set. To avoid the problem you can
<ul>
<li> disable the line editing mode of your shell
<li> set the SHELL variable to a dumb shell (e.g. ash)
<li> link STk with the old libc
<li> don't run the demo :-)
</ul>
</ul>
<! -------------------------------------------------------------------------->
<h2><a name="stklos">2. STklos demos</a></h2>
<ul>
All the standard Tk widgets have been wrapped in <b>STklos</b>
classes. As a result, in <b>STklos</b>, Tk widgets are seen as instances of
<b>STklos</b> classes.
<br> There are two kinds of <b>STklos</b> widgets:
<ul>
<li> <i>Simple widgets</i> which map one to one the Tk standard
widgets
<li> <i>Composite widgets</i> which are built from simple Tk
widgets (or even simpler composite widgets).
</ul>
Demonstration programs accessible from this page use indifferently
<i>simple widgets</i> and <i>composite widgets</i>.
</ul>
<h4>2.1 Basic STklos demos</h4>
<ul>
<p><li>
<b>hello.stklos</b>
<br>
This is a simple rewriting of the <a HREF=#hello>hello.stk</a>
demonstration in <b>STklos</b>
<br>
<u>Run with</u>:
<A expr=(run "hello.stklos")> ../Src/test-stk -f hello.stklos </A>
<p><li>
<b>browse.stklos</b>
<br>
This is a simple rewriting of the <a HREF=#browse>browse.stk</a>
demonstration in <b>STklos</b>
<br>
<u>Run with</u>:
<A expr=(run "browse.stklos")> ../Src/test-stk -f browse.stklos </A>
<p><li>
<b>stklos-demo.stklos</b>
A simple demo written in STklos.
<br>
<u>Run with</u>:
<A expr=(run "stklos-demo.stklos")>../Src/test-stk -f stklos-demo.stklos</a>
<br>
<u>Comment</u>: What is interesting in this demo is not what
it does, nothing specially fancy, but how it is easy to
program, IMHO.
<p><li>
<b>stklos-demo2.stklos</b>
Another simple demo written in STklos.
<br>
<u>Run with</u>:
<A expr=(run "stklos-demo2.stklos")>
../Src/test-stk -f stklos-demo2.stklos</a>
<br>
<u>Comment</u>: Here again, what is interesting in this demo is not what
it does, nothing specially fancy, but how it is easy to
program, IMHO.
</ul>
<h4>2.2 STklos widgets</h4>
<ul>
<p><li>
<b>widget.stklos</b>
<br>
A tour of the Tk widgets. This demo shows all the Tk
widgets. This is a rewriting in STklos of the big Tcl/Tk demo
<tt>widget.tcl</tt>. For each widget demo accessible from this
program, you can see the source by just clicking the <tt>"See
code"</tt> button. You can modify the code and test your
modified version by clicking the button <tt>"Rerun demo"</tt>
<br>
<u>Run with</u>:
<A expr=(run "widget.stk")> ../Src/test-stk -f widget.stk </A>
<br>
<u>Comment</u>: This demo illustrate only the simple widgets
(the ones of the Tk library). For a <i>composite widgets</i>
demo look at the <tt>stklos-widgets.stklos</tt> program.
<p><li>
<b>filebox.stklos</b>
<br>
This is a simple program which uses the <tt><File-box></tt>
<i>composite widget</i>. A <tt><File-box></tt> is a file requester
with file name completion (on the <tt>Tab</tt> key).This widget is
itself a composition of various composite widget classes.
<br>
<u>Run with</u>:
<A expr=(run "filebox.stklos")> ../Src/test-stk -f filebox.stklos </A>
<p><li>
<b>stklos-widgets.stklos</b>
<br>
A quick demo of some of the STklos <i>Composite widgets</i>
which are available in this release.
<br>
<u>Run with</u>:
<A expr=(run "stklos-widgets.stklos")>
../Src/test-stk -f stklos-widgets.stklos </A>
<br>
<u>Comment</u>: This code is a contribution of <b>Drew Whitehouse</b>
<TT><Drew.Whitehouse@anu.edu.au></TT>.
</ul>
<h4>2.3 STklos Applications</h4>
<ul>
<p><li>
<b>calc.stklos</b>
<br>
This is a simplistic calculator.
<br>
<u>Run with</u>:
<A expr=(run "calc.stklos")>../Src/test-stk -f calc.stklos </A>
<p><li>
<b>tkcolor.stklos</b>
<br>
This is a simple color picker written in <B>STklos</B>.
Clicking the left mouse button in the color box sets the text
color to the chosen color. Clicking the right button sets the
background color. The <i>Select</i> button sets the selection
to a string which can be used (by pasting it in an xterm window)
as argument of most X11 applications to set their foreground and
background color.
<br>
<u>Run with</u>:
<A expr=(run "tkcolor.stklos")>../Src/test-stk -f tkcolor.stklos </A>
<p><li>
<b>amib.stklos</b>
<br>
<B>A</B> <B>M</B>ini <B>I</B>nterface <B>B</B>uilder.
<br>
<u>Run with</u>:
<A expr=(run "amib.stklos")> ../Src/test-stk -f amib.stklos </A>
<br>
<u>Comment</u>: The current version of AMIB allow you to:
<ul>
<li>place objects on a plane by drag and drop
<li>resize objects
<li>displace objects
<li>change all the slots of an object (color, font, value, ...)
<li>save an interface to reload it later in an application
</ul>
However it is far from a really usable interface builder (but
after all it is only a 600 lines of code application!!!!)
<p><li>
<b>S-scape.stklos</b>
<br>
The STk web browser. You are probably using it while seeing these lines.
<br>
<u>Run with</u>:
<A expr=(run "S-scape.stklos")> ../Src/test-stk -f S-scape.stklos </A>
</ul>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Sun Mar 1 15:56:45 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Mar 9 19:15:46 CET 1998
<!-- hhmts end -->
</body>
</html>
3c98caa84e
