conservatory
/
stk
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Commit of 3.99.1 version

This commit is contained in:
Erick Gallesio 1998-04-30 13:04:33 +02:00
parent 5f74a25a3c
commit 3c98caa84e
158 changed files with 10002 additions and 8279 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
CHANGES
View File

@ -1,7 +1,22 @@
04/27/98 Release 3.99.1
-----------------------
Mainly minor correction to 3.99.0 (installation problems principally)
Otherwise:
* Inclusion of the Metaclass init-keywords patch from J-M Kubek
<kubek@insa-tlse.fr>, which allows to initialize some slots of
a class when declaring it.
* Tk widgets can be initailized at creation time, even if they
are disabled (idea from Walter C. Pelissero
<wcp@luppolo.lpds.sublink.org>
04/10/98 Release 3.99.0
-----------------------
This is the pre-4.0 release. Why is is not calles 4.0? Good question.
This is the pre-4.0 release. Why is is not called 4.0? Good question.
This version would have been numbered 4.0 if there was not a so long
time between this release and the previous one. Since I take so long
to release, I had time to add a lot of things to my "TODO list".
@ -16,7 +31,7 @@ Here are the main visible changes from previous release:
* A module system has been added
* Integration of the Bigloo MATCH-CASE and MATCH-LAMBDA
primitives. Furthermore, the file bigloo.stk provide
primitives. Furthermore, the file bigloo.stk provides
some compatibility between STk and bigloo modules.
* A simple FFI has been added. It allows to access C
functions without writing C code (works only on a
@ -28,7 +43,7 @@ Here are the main visible changes from previous release:
REPL are now user definable.
* report-error mechanism has been enhanced a lot (work
is not completely achieved).
* new-primitives: append!, mast-pair, C-string->string,
* new-primitives: append!, last-pair, C-string->string,
remove-file, rename-file, temporary-file-name, ...
* Numerous bug corrections
* ...
@ -72,6 +87,12 @@ Here are the main visible changes from previous release:
method-generic-function, method-specializers
method-procedure, remove-method
change-object-class
* When a class is redefined, the instances and methods which uses it
are redefined accordingly, as in CLOS (i.e. if you add a slot in a
class, all its -- direct or indirect -- instances will have the new
slot added dynamically.
* New kind of slot allocation: "active". An active slot
is a slot for which you can put a daemon before or
after its reading/writing

83
ChangeLog
View File

@ -1,11 +1,88 @@
1998-04-30 Erick Gallesio <eg@unice.fr>
* STk-3.99.1 Release
* STklos/stklos.stk (ensure-class): Inclusion of the Metaclass
init-keywords patch from J-M kubek <kubek@insa-tlse.fr>, which
allows to initialize some slots of a class when declaring it.
* Lib/bigloo.stk (module): The compatibility function between
bigloo modules and STk modules was not updated to the current
version of modules. Bug signaled by J-M kubek <kubek@insa-tlse.fr>
* STklos/stklos.stk (shallow-clone): usage of
class-definition-name instead of slot-definition-name in *-clone
functions. Bug signaled by Walter C. Pelissero
<wcp@luppolo.lpds.sublink.org>
* Tcl/tclUnixPort.h:
* Tcl/Int.h: Path correction for accessing compatibility
files. This was needed for SunOS 4.3.x.
* Extensions/Makefile.in : Don't trap errors when linking to see
that there are problems (particularly for Solaris).
1998-04-27 Erick Gallesio <eg@unice.fr>
* Installation process has been updated.
* STklos/Tk/Button.stklos: The variable associated to a radio
button or check button was not using the environment.
* STklos/Tk/Text.stklos:
* STklos/Tk/Entry.stklos:
* STklos/Tk/Scale.stklos:
* STklos/Tk/Basic.stklos: New function: initialize-value-slot
which allow to initialize this slot even if the state of the
widget is disabled. Idea from Walter C. Pelissero
<wcp@luppolo.lpds.sublink.org>
1998-04-26 Erick Gallesio <eg@unice.fr>
* Src/toplevel.c: Correction of a long standing bug which causes
background STk to take all the CPU in some circumstances. It was
hard to track
1998-04-22 Erick Gallesio <eg@unice.fr>
* Src/tcl-glue.c (STk_valid_environment): Various problems
corrected with the new :environment options which is available on
widgets now.
* Src/port.c (STk_flush): Bug correction. Trying to flush a string
port was erroneous. Bug signalled by Walter C. Pelissero
<wcp@luppolo.lpds.sublink.org>
Mon Apr 20 20:52:21 1998 Erick Gallesio <eg@unice.fr>
* Doc/Manual/repl-display-prompt.n: New documentation file.
* Doc/Reference/*: Documentation update.
Mon Apr 13 12:24:19 1998 Erick Gallesio <eg@unice.fr>
* Demos/Html-demos/*: Adding the English demos which were
accidentally forgotten from the previous release
Sun Apr 12 14:13:05 1998 Erick Gallesio <eg@unice.fr>
* Help/*: Pages were not regenerated and correspond to an old
version.
* configure.in : Various correction in the installation process
which was wrong. The spec file for RPM and the STk.prj are now
auto generated at configuration time
Fri Apr 10 09:01:17 1998 Erick Gallesio <eg@unice.fr>
* STk-3.99.0 release
Wed Apr 8 17:02:26 1998 Erick Gallesio <eg@unice.fr>
* Src/*.c: Correction: stderr (instead of STk_stderr) was incorrectly
used in some places.
* Src/*.c: Correction: stderr (instead of STk_stderr) was
incorrectly used in some places.
* Src/Stack: Code was absolutely incorrect for machine which don't
support FFI.
@ -215,7 +292,7 @@ Thu Jan 8 12:27:44 1998 Erick Gallesio <eg@unice.fr>
Sat Jan 3 16:50:55 1998 Erick Gallesio <eg@unice.fr>
* STk.prj: STk.prj has been completely redefines. Now PRCS
* STk.prj: STk.prj has been completely redefined. Now PRCS
versions are in sync with STk version.
Thu Jan 1 13:18:22 1998 Erick Gallesio <eg@unice.fr>

33
Demos/Html-Demos/S-scape-en.html Normal file
View File

@ -0,0 +1,33 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>S-scape: The STk Web Browser.</title>
</head>
<body bgcolor=white>
<h1><img src="Images/STk-tiny.gif"><i>S-scape</i>: The STk Web Browser.</h1>
<font size=+4>
<b>S-scape</b> is a Web browser<P>
<ul>
<li> Entirely written in Scheme;<P>
<li> Accepts a subset of the HTML 2.0 norm (no <i>"forms"</i>)<P>
<li> Is used generally to access <b>STk</b> on line help:<p>
<ul>
<li><tt> <A expr=(help)> (help) </A></tt><p>
<li><tt> <A expr=(help "bell")>(help "bell")</A></tt>
</ul><p>
<li> Allows the definition of Scheme <i>"<A HREF="applet-en.html">applets</A>"</i><P>
<li> can browse <b>remote</b> pages (<i>e.g.</i>
<A HREF=http://kaolin.unice.fr/STk/>http://kaolin.unice.fr/STk/</A>)
</ul>
</font>
<hr>
<A HREF="main-en.html"><img src="Images/backward.gif" align=middle> Top</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Mon Mar 9 13:00:15 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 11:59:20 CEST 1998
<!-- hhmts end -->
</body>
</html>

4
Demos/Html-Demos/S-scape-fr.html
View File

@ -19,7 +19,7 @@
<li> Permet de d&eacute;finir des <i>"<A HREF="applet-fr.html">applets</A>"</i>
en Scheme<P>
<li> Permet la consultation de pages <b>distantes</b> (<i>e.g.</i>
<A HREF=http://kaolin.unice.fr/>http://kaolin.unice.fr/</A>)
<A HREF=http://kaolin.unice.fr/STk/>http://kaolin.unice.fr/STk/</A>)
</ul>
</font>
<hr>
@ -28,7 +28,7 @@
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Mon Mar 9 13:00:15 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Mar 9 21:41:18 CET 1998
Last modified: Mon Apr 13 09:25:03 CEST 1998
<!-- hhmts end -->
</body>
</html>

63
Demos/Html-Demos/amib-en.html Normal file
View File

@ -0,0 +1,63 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Building Interfaces in STklos</title>
</head>
<body bgcolor=white>
<script language="STk">
(lambda (parent url)
(let ((dir (dirname (expand-file-name
((with-module URL url:filename) url)))))
(chdir dir)))
</script>
<h1><img src="Images/STk-tiny.gif">
AMIB: <font color=red>A</font>
<font color=red>M</font>ini
<font color=red>I</font>nterface
<font color=red>B</font>uilder</h1>
<font size=+4>
<center>
<a href="Images/amib.gif"><img src="Images/amib-tiny.gif"></a>
</center>
<ul>
</ul><p>
<I>Objective</I>: Building Graphical Interfaces interactively<P>
<ul>
<li> Written in STklos<P>
<li> Provides
<ul>
<li> Interactive building of GUI;
<li> Save/Restore of built interfaces.<P>
</ul>
<li> Uses the STklos Meta Object Protocol<P>
<li> Code
<ul>
<li> generic (adding a new widget just consists in adding a line in
the program)
<li> just a demo (less than <B>600 lines</B> of code!!)<p>
</ul>
<li> Launch a Demo of AMIB with
<ul>
<li> the non-installed version of STk
(<a expr=(system "test-stk -f amib.stklos&")><tt>test-stk -f amib.stklos&</tt></a>)
<li> the installed version of STk
(<a expr=(system "stk -f amib.stklos &")><tt>stk -f amib.stklos&</tt></a>)
</ul>
</ul>
</font>
</font>
<hr>
<A HREF="main-en.html"><img src="Images/backward.gif" align=middle> Top</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Tue Mar 10 17:40:16 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 12:00:21 CEST 1998
<!-- hhmts end -->
</body>
</html>

2
Demos/Html-Demos/amib-fr.html
View File

@ -57,7 +57,7 @@
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Tue Mar 10 17:40:16 CET 1998 -->
<!-- hhmts start -->
Last modified: Tue Mar 10 18:41:48 CET 1998
Last modified: Mon Apr 13 09:58:25 CEST 1998
<!-- hhmts end -->
</body>
</html>

2
Demos/Html-Demos/animate.stk
View File

@ -10,7 +10,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: animate.stk 1.1 Tue, 10 Mar 1998 21:43:37 +0100 eg $
;;;; $Id: animate.stk 1.1 Tue, 10 Mar 1998 20:43:37 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 9-Mar-1998 18:51

70
Demos/Html-Demos/applet-en.html Normal file
View File

@ -0,0 +1,70 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Applets in STk</title>
</head>
<body bgcolor=white>
<h1><img src="Images/STk-tiny.gif">Applets in STk</h1>
<p>
<script language="STk">
(lambda (parent url)
(let ((dir (dirname (expand-file-name
((with-module URL url:filename) url)))))
(load (string-append dir "/animate.stk"))))
</script>
<font size=+4>
<b>S-scape</b> allows the insertion of STk-code in a HTML page.
<P> Examples:
<ul>
<li> Animation:
<script language="STk">
(lambda (parent url)
(let* ((dir (dirname (expand-file-name
((with-module URL url:filename) url))))
(img (make-animation (string-append dir "/Images/mosaic*")
parent 100)))
(set! *img* img)
(pack img :expand #t :fill "both")))
</script>
<p>
<li> Piece of embedded interface:
<script language="STk">
(lambda (parent url)
(let ((w (scale (format #f "~A.scale" (widget-name parent))
:label "delay between frames (ms)" :orient "hor"
:to 300 :length 250))
(b (button (format #f "~A.butt" (widget-name parent))
:text "Stop animation" :foreground "red")))
(w 'set 100)
(tk-set! w :command (lambda (x)
(change-animation-delay *img* (w 'get))))
(tk-set! b :command (lambda ()
(change-animation-delay *img* -1)))
(pack w b :expand #t :fill "both")))
</script>
<p>
<li> Embedded application:
<script language="STk">
(lambda (parent url)
(let ((dir (dirname (expand-file-name
((with-module URL url:filename) url)))))
(load (string-append dir "/puzzle.stk"))
(display-puzzle parent)))
</script>
</ul>
</font>
<hr>
<A HREF="main-en.html"><img src="Images/backward.gif" align=middle> Top</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Mon Mar 9 13:16:50 CET 1998 -->
<!-- hhmts start -->
Last modified: Tue Mar 10 21:37:14 CET 1998
<!-- hhmts end -->
</body>
</html>

69
Demos/Html-Demos/compo-en.html Normal file
View File

@ -0,0 +1,69 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Composite Widgets</title>
</head>
<body bgcolor="white">
<script language="STk">
(lambda (parent url)
(let ((dir (dirname (expand-file-name
((with-module URL url:filename) url)))))
(chdir dir)))
</script>
<h1><img src="Images/STk-tiny.gif">Composite Widgets</h1>
<font size=+4>
A composite widget is made by assembling several widgets (simple
or even composite widgets):
</font>
<pre>
(define le (make &lt;Labeled-entry&gt; :value 50 :title "Valeur:"))
</pre>
<font size=+4>
defines <tt>le</tt> as an instance of the <tt>&lt;Labeled-entry&gt;</tt>
class. This object, on a screen, gives:
<p>
<center>
<IMG SRC="Images/compo-all.gif"><P>
</center>
<pre>
</pre>
In fact, this widget is composed if three Tk basic widgets: a
<i>frame</i>, a <i>label</i> an an <i>entry</i>:
<pre>
</pre>
<center>
<IMG SRC=Images/frame.gif> + <IMG SRC=Images/label.gif> + <IMG SRC=Images/entry.gif><P>
</center>
<pre>
</pre>
<ul>
<li> A demonstration of some composite widgets can be launched from here with:
<ul>
<li> the non-installed version of STk
(<a expr=(system "test-stk -f stklos-widgets.stklos&")><tt>test-stk</tt></a>)
<li> the installed version of STk
(<a expr=(system "stk -f stklos-widgets.stklos &")><tt>stk</tt></a>)<p>
</ul>
<li> The complete <a href="Lentry.stklos">code</a> of the <tt>&lt;Labeled-entry&gt;</tt> class is approximatively 60 lines.
</ul>
</font>
<hr>
<A HREF="main-fr.html"><img src="Images/backward.gif" align=middle> Retour</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Tue Mar 10 18:42:29 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 12:08:18 CEST 1998
<!-- hhmts end -->
</body>
</html>

32
Demos/Html-Demos/envdraw-en.html
View File

@ -4,15 +4,27 @@
<title>Envdraw</title>
</head>
<body>
<h1>Envdraw</h1>
<body bgcolor=white>
<h1><img src="Images/STk-tiny.gif"> Envdraw</h1>
<font size=+4>
<center>
<img src="Images/envdraw.gif">
</center>
<pre>
</pre>
EnvDraw is a environment diagramming package which draws environment
diagrams as taught in Abelson and Sussman's _Structure and
Interpretation of Computer Languages_. It was written as an
diagrams as taught in <i>Abelson and Sussman's</i> <b>Structure and
Interpretation of Computer Languages</b>.
<p>
It was written as an
instructional tool for the CS61A course at the University of
California at Berkeley. The environment diagrammer is a metacircular
California at Berkeley.
<p>
The environment diagrammer is a metacircular
evaluator which draws procedures, environments, and box and pointer
diagrams along with all the accompanying symbols and mutation. It
includes a box and pointer diagrammer which handles circular list
@ -20,6 +32,15 @@ structures, cons cell mutation, and also will watch for modification
of any symbols known to be pointing to drawn cells.
<p>
Envdraw can be downloaded from the following URL:
<a href=http://kaolin.unice.fr/Contribs">http://kaolin.unice.fr/STk/Contribs</a>
</font>
<hr>
<A HREF="main-en.html"><img src="Images/backward.gif" align=middle> Top</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<
@ -28,6 +49,7 @@ of any symbols known to be pointing to drawn cells.
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Tue Mar 10 19:29:32 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 12:15:49 CEST 1998
<!-- hhmts end -->
</body>
</html>

6
Demos/Html-Demos/envdraw-fr.html
View File

@ -24,7 +24,7 @@ d'environnement tels qu'il sont pr
<p>
Cet outil a été écrit comme un outil pédagogique pour le cours
<b>CS61A</b> de l'Université de Berkeley (Californie).
<p>
Envdraw est en fait un interprète méta-circulaire capable de
dessiner des procedures, des environnement ainsi que des listes sous forme
de boîtes (les listes circulaire sont gérées)
@ -33,7 +33,7 @@ modifications apport
<p>
Envdraw peut être récupéré à l'URL suivante:
<a href=http://kaolin.unice.fr/Contribs">http://kaolin.unice.fr/Contribs</a>
<a href=http://kaolin.unice.fr/Contribs">http://kaolin.unice.fr/STk/Contribs</a>
</font>
<hr>
<A HREF="main-fr.html"><img src="Images/backward.gif" align=middle> Retour</A>
@ -41,7 +41,7 @@ Envdraw peut
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Tue Mar 10 19:29:32 CET 1998 -->
<!-- hhmts start -->
Last modified: Tue Mar 10 21:24:50 CET 1998
Last modified: Mon Apr 13 12:11:34 CEST 1998
<!-- hhmts end -->
</body>
</html>

34
Demos/Html-Demos/intro-en.html Normal file
View File

@ -0,0 +1,34 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>STk/STklos Introduction</title>
</head>
<body bgcolor=white>
<h1><img src="Images/STk-tiny.gif">STk/STklos Introduction</h1>
<p>
<font size=+4>
<B>STk</B> is a Scheme interpreter which<p>
<ul>
<li>is able to access the Tk graphical toolkit<p>
<li>eases the constrution of GUI<p>
</ul>
<b>STklos</b> is the Object extension of STk<p>
<ul>
<li> gives access to the Tk toolit as a hierarchy of objets<p>
<li> eases the Tk toolkit programming<p>
</ul>
A simple <A HREF=simple-en.html>example</A> written in STklos
</font>
<hr>
<A HREF="main-en.html"><img src="Images/backward.gif" align=middle> Top</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Mon Mar 9 12:19:35 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 12:16:54 CEST 1998
<!-- hhmts end -->
</body>
</html>

30
Demos/Html-Demos/main-en.html Normal file
View File

@ -0,0 +1,30 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Presentation of STk</title>
</head>
<body bgcolor=white>
<h1><img src="Images/STk-tiny.gif">Presentation of STk</h1>
<font size=+4>
<ul>
<li> <A HREF=intro-en.html>Introduction</A><P>
<li> Applications written in STk:<p>
<ul>
<li> Browser Web: <a href="S-scape-en.html">S-scape</a><P>
<li> Interface Builder: <A HREF=amib-en.html>
AMIB</A><P>
<li> Visualization of Environments in Scheme:
<A HREF=envdraw-en.html>Envdraw</A><P>
</ul>
<li> Definition of <A HREF=compo-en.html>composite</A> widgets
</ul>
</font>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Mon Mar 9 12:11:25 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 09:57:17 CEST 1998
<!-- hhmts end -->
</body>
</html>

2
Demos/Html-Demos/puzzle.stk
View File

@ -10,7 +10,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: puzzle.stk 1.1 Tue, 10 Mar 1998 21:43:37 +0100 eg $
;;;; $Id: puzzle.stk 1.1 Tue, 10 Mar 1998 20:43:37 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 9-Mar-1998 21:11

39
Demos/Html-Demos/simple-en.html Normal file
View File

@ -0,0 +1,39 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>STklos Example</title>
</head>
<body bgcolor=white>
<h1><img src="Images/STk-tiny.gif">STklos Example</h1>
<font size=+6>
Launch an <b>xterm</b> to test this <i>program</i> with
<ul>
<li> the non-installed version of STk
(<a expr=(system "xterm -e test-stk &")>test-stk</a>)
<li> the installed version of STk
(<a expr=(system "xterm -e stk &")>stk</a>)
</ul>
</font>
<pre>
(require "Tk-classes")
(define l (make &lt;Button&gt;
:text "Hello, world"
:font "10x20"
:command (lambda () (exit 0))))
(pack l)
</pre>
<font size=+6>
<b>Cut</b> the 3 expressions above and <b>Paste</b> them in the xterm
window as soon as it appears.
</font>
<hr>
<A HREF="main-en.html"><img src="Images/backward.gif" align=middle> Top</A>
<hr>
<address><a href="mailto:eg@unice.fr">Erick Gallesio</a></address>
<!-- Created: Mon Mar 9 12:30:47 CET 1998 -->
<!-- hhmts start -->
Last modified: Mon Apr 13 10:13:04 CEST 1998
<!-- hhmts end -->
</body>
</html>

14
Demos/Makefile Normal file → Executable file
View File

@ -4,22 +4,30 @@
include ../config.make
DEMODIR=$(libdir)/demos
DEMODIR=$(libdir)/Demos
what:
@echo "Type make install to install demos"
install:
-if [ ! -d $(DEMODIR) ] ; then mkdir -p $(DEMODIR); fi
for i in *.stk *.stklos Widget/*.stklos ; \
chmod 0755 $(DEMODIR)
for i in *.stk *.stklos Widget/*.stklos *.html; \
do \
j=`basename $$i`; \
sed -e 's=/usr/local/lib/stk=$(libdir)=' \
-e 's=/usr/local/bin=$(bindir)=' $$i > $(DEMODIR)/$$j;\
done
for i in *.stk *.stklos ; \
for i in *.stk *.stklos *.html; \
do \
chmod 0755 $(DEMODIR)/`basename $$i`; \
done
mkdir $(DEMODIR)/Html-Demos; chmod 0755 $(DEMODIR)/Html-Demos
cp Html-Demos/*.html $(DEMODIR)/Html-Demos
chmod 0644 $(DEMODIR)/Html-Demos/*.html
mkdir $(DEMODIR)/Html-Demos/Images; chmod 0755 $(DEMODIR)/Html-Demos/Images
cp Html-Demos/Images/* $(DEMODIR)/Html-Demos/Images
chmod 0644 $(DEMODIR)/Html-Demos/Images/*
(cd $(DEMODIR)/Html-Demos; ln -s ../amib.stklos ../stklos-widgets .)
install.libs:

2
Demos/browse.stk
View File

@ -8,7 +8,7 @@
;;;; double-clicking.
;;;; This is a new version of the demo which can be run before STk is installed
;;;;
;;;; $Id: browse.stk 1.2 Mon, 16 Feb 1998 08:28:39 +0100 eg $
;;;; $Id: browse.stk 1.2 Mon, 16 Feb 1998 07:28:39 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 3-Aug-1993 17:33

2
Demos/browse.stklos
View File

@ -7,7 +7,7 @@
;;;; directory and allows you to open files or subdirectories by
;;;; double-clicking.
;;;;
;;;; $Id: browse.stklos 1.2 Mon, 16 Feb 1998 08:28:39 +0100 eg $
;;;; $Id: browse.stklos 1.2 Mon, 16 Feb 1998 07:28:39 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 3-Aug-1993 17:33

2
Demos/calc.stklos
View File

@ -13,7 +13,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: calc.stklos 1.2 Mon, 16 Feb 1998 08:28:39 +0100 eg $
;;;; $Id: calc.stklos 1.2 Mon, 16 Feb 1998 07:28:39 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 6-Apr-1995 18:11

2
Demos/filebox.stklos
View File

@ -16,7 +16,7 @@
;;;; This software is a derivative work of other copyrighted softwares; the
;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
;;;;
;;;; $Id: filebox.stklos 1.2 Mon, 16 Feb 1998 08:28:39 +0100 eg $
;;;; $Id: filebox.stklos 1.2 Mon, 16 Feb 1998 07:28:39 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 12-Jun-1994 11:24

2
Demos/term.stk
View File

@ -13,7 +13,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: term.stk 1.2 Mon, 16 Feb 1998 08:28:39 +0100 eg $
;;;; $Id: term.stk 1.2 Mon, 16 Feb 1998 07:28:39 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 7-Oct-1995 10:39

5
Doc/Manual/Makefile
View File

@ -10,7 +10,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 21-Oct-1994 11:25
# Last file update: 30-Oct-1996 12:00
# Last file update: 20-Apr-1998 21:43
include ../../config.make
@ -61,11 +61,10 @@ install.man:
for i in *.n ;do \
$(CP) $$i $(MANN_DIR)/stk_$$i; \
done
../../Src/test-stk -no -file make-link $(MANN_DIR)
# ../../Src/test-stk -no -file make-link $(MANN_DIR)
clean:
rm -f *~
very-clean: clean
rm -f *.ps

1
Doc/Manual/change-image.n Symbolic link
View File

@ -0,0 +1 @@
make-image.n

1
Doc/Manual/find-image.n Symbolic link
View File

@ -0,0 +1 @@
make-image.n

1
Doc/Manual/free-image.n Symbolic link
View File

@ -0,0 +1 @@
make-image.n

21
Doc/Manual/links.stk
View File

@ -1,21 +0,0 @@
;;;;
;;;; This file contains data for make-link.stk.
;;;;
;;;; Copyright © 1996-1997 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;; Permission to use, copy, and/or distribute this software and its
;;;; documentation for any purpose and without fee is hereby granted, provided
;;;; that both the above copyright notice and this permission notice appear in
;;;; all copies and derived works. Fees for distribution or use of this
;;;; software or derived works may only be charged with express written
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Oct-1996 11:27
;;;; Last file update: 17-Sep-1997 22:01
;;;;
(define *links* '(
("create-image" "find-image" "change-image" "delete-image")
))

31
Doc/Manual/make-link.stk
View File

@ -1,31 +0,0 @@
;;;;
;;;; This script is executed for linking manual pages which are identical
;;;; Data are taken in the "links.stk" file
;;;;
;;;; Copyright © 1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;; Permission to use, copy, and/or distribute this software and its
;;;; documentation for any purpose and without fee is hereby granted, provided
;;;; that both the above copyright notice and this permission notice appear in
;;;; all copies and derived works. Fees for distribution or use of this
;;;; software or derived works may only be charged with express written
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Oct-1996 11:27
;;;; Last file update: 30-Oct-1996 12:32
;;;;
(load "links.stk")
(define (make-link dir source destination)
(for-each (lambda (x)
(let ((cmd (format #f "cd ~A; rm -f stk_~A.n; ln stk_~A.n stk_~A.n"
dir x source x)))
(system cmd)))
destination))
(for-each (lambda (l) (make-link (car *argv*) (car l) (cdr l)))
*links*)
(exit 0)

45
Doc/Manual/repl-display-prompt.n Normal file
View File

@ -0,0 +1,45 @@
'\" Color=Green
'\"
'\"
.so STk-man.macros
.TH repl-display-prompt n 3.99 STk "STk procedure"
.BS
'\" Note: do not modify the .SH NAME line immediately below!
.SH NAME
repl-display-prompt, repl-display-result \- Display a prompt/result in
interactive mode
.SH SYNOPSIS
(\fBrepl-display-prompt \fImodule\fR)
.br
(\fBrepl-display-result \fIvalue\fR)
.BE
.SH DESCRIPTION
.PP
\fBRepl-display-prompt\fR is called by the interactive toplevel loop
before reading a \fIsexpr\fR. This procedure is called with one parameter:
the selected module in the toplevel loop.
.LP
A simple form of this procedure could be:
.CS
(define (repl-display-prompt module)
(let ((p (current-error-port)))
(format p "~A> " (module-name module))
(flush p)))
.CE
.PP
\fBRepl-display-result\fR is called by the interactive toplevel loop
after the evaluation of a \fIsexpr\fR. This procedure is called with the
result of this evaluation as parameter.
.LP
A simple form, mimicking the MIT Scheme way of presenting results, could be:
.CS
(define (repl-display-result value)
(format #t "\\n;Value: ~S\\n\\n" value))
.CE

1
Doc/Manual/repl-display-result.n Symbolic link
View File

@ -0,0 +1 @@
repl-display-prompt.n

2
Doc/Manual/report-error.n
View File

@ -23,7 +23,7 @@ causes the error (or the empty list when there is no object to incriminate).
The STk library includes a default \fBreport-error\fR procedure
that posts a dialog box containing the error message and offers
the user a chance to see a stack trace showing where the
error occurred and its associated environment..
error occurred and its associated environment.
.PP
If an error occurs while is \fBreport-error\fR execution, the
interpreter detect that the procedure is buggy and it redirect further

6
Doc/Manual/stk.1
View File

@ -21,7 +21,7 @@
'\" ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
'\" PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
'\"
'\" $Id: stk.1 1.1 Sat, 03 Jan 1998 13:46:25 +0100 eg $
'\" $Id: stk.1 1.2 Mon, 20 Apr 1998 20:15:01 +0000 eg $
'\"
.so STk-man.macros
.TH STk 1 4.0 STk "January_1998"
@ -172,6 +172,10 @@ variable is a list of paths to try when in a load command.
This variable serves to initialize the \fI*help-path*\fR Scheme variable. It
must contain a list of documentation directories. This variable is used by the help
procedure.
.IP "\fISTK_IMAGE_PATH\fR" 15
This variable serves to initialize the \fI*image-path*\fR Scheme variable. It
must contain a list of images directories. This variable is used by the make-image
procedure.
.SH FILES

39
Doc/Manual/stk.ps
View File

@ -1,6 +1,6 @@
%!PS-Adobe-3.0
%%Creator: groff version 1.11
%%CreationDate: Fri Apr 10 09:05:16 1998
%%CreationDate: Mon Apr 20 10:54:40 1998
%%DocumentNeededResources: font Times-Roman
%%+ font Times-Bold
%%+ font Times-Italic
@ -496,24 +496,29 @@ F .525(ariable is a list)-.25 F(of paths to try when in a load command.)
BP
%%EndPageSetup
/F0 10/Times-Roman@0 SF 175.12(STk\(1\) January_1998 STk\(1\))72 48 R/F1
9/Times-Bold@0 SF(FILES)72 84 Q/F2 10/Times-Italic@0 SF(./init.stk)108
96 Q($STK_LIBRAR)108 112.8 Q(Y/STk/init.stk)-.18 E F0(When)183 124.8 Q
/F3 10/Times-Bold@0 SF(stk)2.69 E F0 .19
(starts running, it tries to load the \214le)2.69 F F2(init.stk)2.69 E
10/Times-Italic@0 SF(STK_IMA)108 84 Q(GE_P)-.35 E -.37(AT)-.9 G(H).37 E
F0 .137(This v)183 96 R .137(ariable serv)-.25 F .137
(es to initialize the)-.15 F F1(*ima)2.637 E -.1(ge)-.1 G(-path*).1 E F0
.137(Scheme v)2.637 F .137(ariable. It must contain a list)-.25 F
(of images directories. This v)183 108 Q(ariable is used by the mak)-.25
E(e-image procedure.)-.1 E/F2 9/Times-Bold@0 SF(FILES)72 148.8 Q F1
(./init.stk)108 160.8 Q($STK_LIBRAR)108 177.6 Q(Y/STk/init.stk)-.18 E F0
(When)183 189.6 Q/F3 10/Times-Bold@0 SF(stk)2.69 E F0 .19
(starts running, it tries to load the \214le)2.69 F F1(init.stk)2.69 E
F0 .19(in the current directory)2.69 F 2.69(.I)-.65 G 2.69(ft)-2.69 G
.19(his \214le)-2.69 F 1.581
(is not present, it tries to load this \214le in the)183 136.8 R F3
(STk_LIBRAR)4.082 E(Y)-.35 E F0 1.582(directory \(the v)4.082 F 1.582
(alue of)-.25 F F3(STk_LIBRAR)183 148.8 Q(Y)-.35 E F0 .244(is automatic\
ally computed to be in a sibling directory of the interpreter)2.745 F
-.15(exe)183 160.8 S(cutable.).15 E F2(~/.stkr)108 189.6 Q(c)-.37 E F0
(Standard)47.32 E F2(init.stk)2.979 E F0 .479
(\214le tries to load the \214le)2.979 F F2(~/.stkr)2.979 E(c)-.37 E F0
2.979(.T)C .48(his \214le can be used to store functions)-2.979 F .704
(de\214nitions or v)183 201.6 R .704(ariables settings that you w)-.25 F
.19(his \214le)-2.69 F 1.582
(is not present, it tries to load this \214le in the)183 201.6 R F3
(STk_LIBRAR)4.081 E(Y)-.35 E F0 1.581(directory \(the v)4.081 F 1.581
(alue of)-.25 F F3(STk_LIBRAR)183 213.6 Q(Y)-.35 E F0 .244(is automatic\
ally computed to be in a sibling directory of the interpreter)2.744 F
-.15(exe)183 225.6 S(cutable.).15 E F1(~/.stkr)108 254.4 Q(c)-.37 E F0
(Standard)47.32 E F1(init.stk)2.98 E F0 .48
(\214le tries to load the \214le)2.98 F F1(~/.stkr)2.979 E(c)-.37 E F0
2.979(.T)C .479(his \214le can be used to store functions)-2.979 F .703
(de\214nitions or v)183 266.4 R .704(ariables settings that you w)-.25 F
.704(ant to be e)-.1 F -.15(xe)-.15 G .704(cuted at each interpreter in)
.15 F -.2(vo)-.4 G(ca-).2 E(tion.)183 213.6 Q F1(SEE ALSO)72 242.4 Q F0
(wish\(1\))108 254.4 Q 208.58(STk 4.0)72 768 R(3)222.75 E EP
.15 F -.2(vo)-.4 G(ca-).2 E(tion.)183 278.4 Q F2(SEE ALSO)72 307.2 Q F0
(wish\(1\))108 319.2 Q 208.58(STk 4.0)72 768 R(3)222.75 E EP
%%Trailer
end
%%EOF

80
Doc/Reference/Appendix-B.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 8-Jul-1996 21:52
% Last file update: 20-Apr-1998 11:54
%
\newcommand{\schglob}[1]{*#1*}
@ -16,7 +16,8 @@ implementation and the language described in {\rrrr}.
{\stk} symbol syntax has been augmented to allow case significant symbols.
This extension is discussed in \ref{symbolsection}.
The following symbols are defined in the global environment.
\smallskip {\stk} also defines some symbols in the global environment
which are described below:
\begin{itemize}
@ -34,7 +35,7 @@ The following symbols are defined in the global environment.
each loaded file is printed before its effective reading. File names
are printed on the standard error stream.
\item {\tt\schglob{load-path}}\schindex{\schglob{load-path}} must
\item {\tt\schglob{load-path}}\schindex{\schglob{load-path}} must
contain a list of strings. Each string is taken as a directory
path name in which a file will be searched for loading. This
variable can be set automatically from the {\tt STK\_LOAD\_PATH}
@ -47,13 +48,7 @@ The following symbols are defined in the global environment.
file does not exist, the system will sequentially try to find the file by
appending each suffix of this list. A typical value for this
variable may be {\tt ("stk" "stklos" "scm" "so")}.
\item {\tt\schglob{help-path}}\schindex{help,
getting}\schindex{\schglob{help-path}} must contain a list of
strings. Each string is taken as a directory path name in which
documentation files are searched. This variable can be set
automatically from the {\tt STK\_HELP\_PATH} shell variable. See
{\tt stk(1)} for more details.
\item {\tt\schglob{argc}}\schindex{\schglob{argc}} contains the
number of arguments (0 if none), not including interpreter
@ -70,14 +65,77 @@ The following symbols are defined in the global environment.
See {\tt stk(1)} for more details.
\item {\tt\schglob{print-banner}}\schindex{\schglob{print-banner}}. If
{\tt\schglob{print-verbose}} is {\schfalse}, the usual copyright
{\tt\schglob{print-banner}} is {\schfalse}, the usual copyright
message is not displayed when the interpreter is started.
\item {\tt\schglob{stk-library}}\schindex{\schglob{stk-library}}
contains the path name of the installation directory of the
{\stk} library. This variable can be set automatically from the
{\tt STK\_LIBRARY} shell variable. See {\tt stk(1)} for more
details.
\end{itemize}
The following symbols are defined only when Tk is loaded:
\begin{itemize}
\item {\tt\schglob{root}}\schindex{\schglob{root}} designates the Tk main
window (see~A-\ref{root window}). This variable is not set if
the Tk toolkit is not initialized.
\item {\tt\schglob{help-path}}\schindex{help,
getting}\schindex{\schglob{help-path}} must contain a list of
strings. Each string is taken as a directory path name in which
documentation files are searched. This variable can be set
automatically from the {\tt STK\_HELP\_PATH} shell variable. See
{\tt stk(1)} for more details.
\item {\tt\schglob{image-path}}\schindex{\schglob{image-path}} must contain
a list of strings. Each string is taken as a directory path name in which
images are searched by the function \texttt{make-image}. This variable can be
set automatically from the {\tt STK\_IMAGE\_PATH} shell variable. See
{\tt stk(1)} and {\tt make-image(n)} for more details.
\item {\tt\schglob{root}}\schindex{\schglob{root}} designates the Tk main
window (see~A-\ref{root window}). This variable is not set if
the Tk toolkit is not initialized.
\item {\tt\schglob{start-withdrawn}}\schindex{\schglob{start-withdrawn}}. If
\schglob{start-withdrawn} is not false, the \schglob{root} window
is not mapped on screen until its first sub-window is packed or some
action is asked to the window manager for it.
\item {\tt\schglob{tk-version}}\schindex{\schglob{tk-version}} is a string
which contains the version number of the Tk toolkit used by {\stk}.
\item {\tt\schglob{tk-patch-level}}\schindex{\schglob{tk-patch-level}} is
a string which contains the version and patch level of the Tk toolkit
used by {\stk}.
\end{itemize}
Furthermore, {\stk} also defines the following procedures in the global
environment:
\begin{itemize}
\item \ide{report-error}. This procedure is called by the error system to
display the message error. This procedure is described in
{\tt report-error(n)}
\item \ide{repl-display-prompt}. \label{repl-display-prompt}
This procedure is called when the system
is run interactively before reading a \emph{sexpr} to evaluate to display
a prompt. This procedure is described in {\tt repl-display-prompt(n)}.
\item \ide{repl-display-result}. This procedure is called when the system
is run interactively after the evaluation of a \emph{sexpr} to write the
result. This procedure is described in {\tt repl-display-result(n)}.
\end{itemize}
\section{Types}
{\stk} implements all the types defined as mandatory in {\rrrr}. However, complex

8
Doc/Reference/Appendix-C.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: 22-May-1994 22:13
% Last file update: 21-Jan-1996 17:35
% Last file update: 22-Apr-1998 11:04
%
\section{Introduction}
@ -388,8 +388,8 @@ So:
These rules are used to compute a linear order for a class and all its
superclasses, from most specific to least specific. This order is called the
``class precedence list'' of the class. Given those two rules, we can claim
that the initial form for the {\tt x} slot of previous example is 2 since the
``class precedence list'' of the class. Given these two rules, we can claim
that the initial form for the {\tt x} slot of previous example is 1 since the
class {\tt X} is placed before {\tt Y} in class precedence list of {\tt Z}.
This two rules are not always enough to determine a unique order, however, but
@ -517,7 +517,7 @@ the list of applicable methods. This is done by using the special form
\begin{scheme}
(define-method Test((a <integer>)) (cons 'integer (next-method)))
(define-method Test((a <number>)) (cons 'number (next-method)))
(define-method Test(a) (list 'top))
(define-method Test(a) (list 'top))
\end{scheme}
With those definitions,

56
Doc/Reference/Appendix-E.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: 21-Dec-1997 20:09
% Last file update: 21-Dec-1997 21:56
% Last file update: 18-Apr-1998 13:36
%
\section*{Introduction}
@ -11,11 +11,63 @@
This appendix lists the main differences\footnote{ Only the
differences which affect the language or new ports are reported here.
In particular, internal changes, packages written in Scheme or
performance enhancement are not discussed here.}.among the various
performance enhancement are not discussed here.} among the various
recent versions of STk. Differences with older versions as well as
implementation changes are described in the CHANGES file located in
the main directory of the STk distribution.
\section*{Release 3.99.0}
\small{\emph{Release date: 04/10/98}}
Changes can be classified in three categories:
\begin{itemize}
\item About Scheme
\begin{itemize}
\item A module system has been added
\item Integration of the Bigloo \ide{match-case} and
\ide{match-lambda} primitives. Furthermore, the file \emph{bigloo.stk}
provides some compatibility between {\stk} and bigloo modules.
\item A simple Foreign Function Interface has been added.
\item integrates the {\rfive} \ide{values} and \ide{call-with-values}
\item multi-line comments have been added.
\item new file primitives: \texttt{remove-file}, \texttt{rename-file} and
\texttt{temporary-file-name}.
\item new list primitives: \texttt{append!}, \texttt{last-pair},
\texttt{remq}, \texttt{remv} and \texttt{remove}.
\item \texttt{load}, \texttt{try-load} and \texttt{autoload?} can nw
be called with a module as second parameter. If this second parameter is
present, the loading is done in the environment of the given module.
\end{itemize}
\item About Tk
\begin{itemize}
\item Integration of the Tk8.0 toolkit
\item Buttons, Checkbuttons and Radiobuttons can use a
\texttt{:variable} and \texttt{:textvariable} in a given
environment. This environment is given with the new \texttt{:environment}
option.
\end{itemize}
\item About STklos
\begin{itemize}
\item The MOP of {\stklos} is now very similar to the CLOS's MOP. In
particular generic function has been added for controlling slot
accesses, as well as numerous introspection functions.
\item When a class is redefined, the instances and methods which uses it
are redefined accordingly, as in CLOS (i.e. if anew slot is added in a
class, all its -- direct or indirect -- instances will have the new
slot added dynamically.
\end{itemize}
\end{itemize}
\section*{Release 3.1.1}
\small{\emph{Release date: 09/26/96}}

66
Doc/Reference/Reference1.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 16-Dec-1997 19:09
% Last file update: 18-Apr-1998 14:47
%
\section*{Introduction}
@ -55,7 +55,7 @@ There are three types of comments in {\stk}:
\begin{enumerate}
\item a semicolon (;) indicates the start of a comment.
This kind of comment extends to the end of the line (as described in \rrrr).
\item multi-lines comment use the classical lisp conventions: a comment
\item multi-lines comment use the classical Lisp convention: a comment
begins with \verb+#|+ and ends with \verb+|#+.
\item comments can also be introduced by \sharpsign$!$. This
extension is particularly useful for building {\stk} scripts. On most
@ -88,14 +88,13 @@ This kind of comment extends to the end of the line (as described in \rrrr).
\item[\tt\sharpsign.<expr>] is read as the evaluation of the Scheme
expression {\tt <expr>}. The evaluation is done during the
\ide{read} process, when the \var{\sharpsign.} is encountered.
Evaluation is done in the global environment.
Evaluation is done in the environment of the current module.
\begin{scheme}
(define foo 1)
\sharpsign.foo \lev 1
'(foo \sharpsign.foo \sharpsign.(+ foo foo)) \lev (foo 1 2)
(let ((foo 2))
\sharpsign.foo) \lev 1
\end{scheme}
\end{description}
@ -353,7 +352,30 @@ keywords into account. On keywords, \ide{eq?} behaves like \ide{eqv?}.
\proto{list?}{ obj}{procedure}
\proto{list}{ \var{obj} \dotsfoo}{procedure}
\proto{length}{ list}{procedure}
\proto{append}{ list \dotsfoo}{procedure}
\proto{append}{ list \dotsfoo}{procedure}}
\saut
\doc
\end{entry}
\begin{entry}{%
\proto{append!}{ list \ldots}{procedure}}
\saut
Returns a list consisting of the elements of the first \var{list}
followed by the elements of the other lists, as with \texttt{append}.
The differenece with \texttt{append} is that the arguments are {\em
changed} rather than {\em copied}.
\begin{scheme}
(append! '(1 2) '(3 4) '(5 6)) \lev '(1 2 3 4 5 6)
(let ((l1 '(1 2))
(l2 '(3 4))
(l3 '(5 6)))
(append! l1 l2 l3)
(list l1 l2 l3)) \lev ((1 2 3 4 5 6) (3 4 5 6) (5 6))
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{reverse}{ list}{procedure}
\proto{list-tail}{ list \vr{k}}{procedure}
\proto{list-ref}{ list \vr{k}}{procedure}
@ -387,6 +409,17 @@ have been deleted. The predicate used to test the presence of \var{obj} in
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{last-pair}{ list}{procedure}}
\saut
Returns the last pair of \var{list}\footnote{\ide{Last-pair} was a standard
procedure in {\rthree}.}.
\begin{scheme}
(last-pair '(1 2 3)) \lev 3
(last-pair '(1 2 . 3)) \lev (2 . 3)
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{list*}{ obj}{procedure}}
\saut
@ -1275,15 +1308,11 @@ undefined. Otherwise, it returns the handler currently associated to
\begin{entry}{%
\proto{load}{ filename}{procedure}
\proto{load}{ filename environment}{procedure}}
\proto{load}{ filename module}{procedure}}
\saut
The first form is identical to \rrrr{}. The second one loads the
content of \var{filename} in the given \var{environment}. So, the first
form is equivalent to
\begin{scheme}
(load filename (global-environment))
\end{scheme}
content of \var{filename} in the given \var{module} environment.
\begin{note}
The \var{load} primitive has been extended to allow loading of
object files, though this is not implemented on all systems.
@ -1296,13 +1325,13 @@ form is equivalent to
\begin{entry}{%
\proto{try-load}{ filename}{procedure}
\proto{try-load}{ filename environment}{procedure}}
\proto{try-load}{ filename module}{procedure}}
\saut
Tries to load the file named \var{filename}. If \var{filename} exists and is
readable, it is loaded, and \ide{try-load} returns {\schtrue}.
Otherwise, the result of the call is {\schfalse}.
The second form of \var{try-load} tries to load the content of \var{filename}
in the given \var{environment}.
in the given \var{module} environment.
\end{entry}
\begin{entry}{%
@ -1310,16 +1339,17 @@ in the given \var{environment}.
\saut
Defines \hyper{symbol}s as autoload symbols associated to file
\var{filename}.
Fisrt evaluation of an autoload symbol will cause the loading of its
associated file. \var{Filename} must provide a definition for the symbol which
First evaluation of an autoload symbol will cause the loading of its
associated file in the module environment in which the autoload was done.
\var{Filename} must provide a definition for the symbol which
lead to its loading, otherwise an error is signaled.
\end{entry}
\begin{entry}{%
\proto{autoload?}{ symbol}{procedure}}
\proto{autoload?}{ symbol module}{procedure}}
\saut
Returns {\schtrue} if \var{symbol} is an autoload symbol; returns {\schfalse}
otherwise.
Returns {\schtrue} if \var{symbol} is an autoload symbol in \var{module}
environment ; returns {\schfalse} otherwise.
\end{entry}
\begin{entry}{%

60
Doc/Reference/Reference2.tex
View File

@ -3,7 +3,7 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 6-Apr-1998 11:25
% Last file update: 20-Apr-1998 11:58
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@ -342,11 +342,11 @@ they are automatically exported.
\end{entry}
\begin{entry}{%
\proto{with-module}{ module \hyperi{expr} \hyperii{expr} \ldots} {syntax}}
\proto{with-module}{ name \hyperi{expr} \hyperii{expr} \ldots} {syntax}}
\saut
Evaluates the expressions of \hyperi{expr} \hyperii{expr} \ldots in
the \var{module} environment. \var{Module} must have been created
the environment of module \var{name}. Module \var{name} must have been created
previously by a \ide{define-module}. The result of \ide{with-module}
is the result of the evaluation of the last \hyper{expr}.
@ -376,6 +376,34 @@ Returns the current-module.
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{select-module}{ name} {syntax}}
\saut
Evaluates the expressions which follows in module \var{name}
environment. Module \var{name} must have been created previously by a
\ide{define-module}. The result of \ide{select-module} is undefined.
\ide{Select-module} is particularly useful when debugging since it
allows to place toplevel evaluation in a particular module. The
following transcript shows an usage of
\ide{select-module}\footnote{This transcript uses the default value for the
function \texttt{repl-display-prompt} (see page \pageref{repl-display-prompt})
which displays the name of the current module in the prompt.}:
\begin{scheme}
STk> (define foo 1)
STk> (define-module bar
(define foo 2))
STk> foo
1
STk> (select-module bar)
bar> foo
2
bar> (select-module STk)
STk>
\end{scheme}
\end{entry}
\begin{entry}{%
\proto{module-name}{ module} {procedure}}
\saut
@ -691,9 +719,6 @@ which does not exist).
\proto{glob}{ \vri{pattern} \vrii{pattern} \dotsfoo} {procedure}}
\saut
%%%%%%%%%%%%%% Irgendwann h"alt Gott seine Arme auf:
%%%%%%%%%%%%%% BIS HIERHIN UND NICHT WEITER!
The code for \ide{glob} is taken from the Tcl library. It performs
file name ``globbing'' in a fashion similar to the csh shell.
\ide{Glob} returns a list of the filenames that match at least one of
@ -727,6 +752,29 @@ check for existence is made unless a pattern contains a ?, \etoile, or
construct.
\end{entry}
\begin{entry}{%
\proto{remove-file}{ string} {procedure}}
\saut
Removes the file whose path name is given in \var{string}.
The result of \ide{remove-file} is undefined.
\end{entry}
\begin{entry}{%
\proto{rename-file}{ \vri{string} \vrii{string}} {procedure}}
\saut
Renames the file whose path-name is contained in \vri{string} in the path
name given by \vrii{string}. The result of \ide{rename-file} is undefined.
\end{entry}
\begin{entry}{%
\proto{temporary-file-name}{ string} {procedure}}
\saut
Generates a unique temporary file name. The value returned by
\ide{temporary-file-name} is the newly generated name of {\schfalse}
if a unique name cannot be generated.
\end{entry}
\begin{entry}{%
\proto{getcwd}{} {procedure}}
\saut

BIN
Doc/Reference/manual.dvi
View File

Binary file not shown.

15530
Doc/Reference/manual.ps
View File

File diff suppressed because it is too large Load Diff

7
Doc/Reference/manual.tex
View File

@ -13,10 +13,10 @@
%
% Author: Erick Gallesio [eg@unice.fr]
% Creation date: ??-Nov-1993 ??:??
% Last file update: 10-Apr-1998 09:07
% Last file update: 20-Apr-1998 10:07
%
\documentclass[10pt,a4paper]{book}
\documentclass[11pt,a4paper]{book}
\usepackage{a4wide}
\usepackage{fancyheadings}
\usepackage{epsfig}
@ -49,6 +49,9 @@
\newcommand{\stklos}{{\sc STklos}}
\newcommand{\doc}{{\em Identical to R$^{4}$RS.}}
\newcommand{\rrrr}{{\em R$^{4}\!RS$}}
\newcommand{\rthree}{{\em R$^{3}\!RS$}}
\newcommand{\rfour}{{\em R$^{4}\!RS$}}
\newcommand{\rfive}{{\em R$^{5}\!RS$}}
\newcommand{\saut}{\vskip2mm}
\newcommand{\tilda}{{\tt\char126}}
\newcommand{\etoile}{{\tt\char42}}

6
Extensions/Makefile.in
View File

@ -1,5 +1,5 @@
#
# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
# Copyright © 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
#
#
# Permission to use, copy, and/or distribute this software and its
@ -12,7 +12,7 @@
#
# Author: Erick Gallesio [eg@kaolin.unice.fr]
# Creation date: 6-Mar-1994 15:49
# Last file update: 10-Oct-1996 09:35
# Last file update: 30-Apr-1998 10:57
include ../config.make
@ -26,7 +26,7 @@ CFLAGS= $(SH_CCFLAGS) $(STKCFLAGS) $(DFLGS) -DUSE_TK @DEFS@ \
.SUFFIXES: .$(SH_SUFFIX) .o .c
.o.$(SH_SUFFIX):
-$(SH_LOADER) $(SH_LDFLAGS) $*.$(SH_SUFFIX) $<
$(SH_LOADER) $(SH_LDFLAGS) $*.$(SH_SUFFIX) $<
if test -f a.out ;then mv a.out $*.$(SH_SUFFIX); fi

2
Extensions/jpeg.c
View File

@ -7,7 +7,7 @@
* Department of Computer Science,
* University of California, Berkeley
*
* $Id: jpeg.c 1.1 Sat, 03 Jan 1998 13:46:25 +0100 eg $
* $Id: jpeg.c 1.1 Sat, 03 Jan 1998 12:46:25 +0000 eg $
*
* Parts of this file are based on code under the following
* copyrights. Include these copyrights if you do anything

2
Extensions/posix.c
View File

@ -16,7 +16,7 @@
* This software is a derivative work of other copyrighted softwares; the
* copyright notices of these softwares are placed in the file COPYRIGHTS
*
* $Id: posix.c 1.1 Sat, 03 Jan 1998 13:46:25 +0100 eg $
* $Id: posix.c 1.1 Sat, 03 Jan 1998 12:46:25 +0000 eg $
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 14-Mar-1995 20:14

28
Help/BlueIndex.html
View File

@ -3,20 +3,20 @@
<H2><IMG ALIGN=BOTTOM SRC=Img/RefBookBlue.gif>
The <I>STk</I> blue pages</H2><HR>
<PRE>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=after.n.html>after</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bell.n.html>bell</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bind.n.html>bind</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bindtags.n.html>bindtags</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bitmap.n.html>bitmap</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=button.n.html>button</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=canvas.n.html>canvas</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=checkbutton.n.html>checkbutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=clipboard.n.html>clipboard</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=destroy.n.html>destroy</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=entry.n.html>entry</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=event.n.html>event</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=focus.n.html>focus</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=frame.n.html>frame</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grab.n.html>grab</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grid.n.html>grid</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=image.n.html>image</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=label.n.html>label</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=listbox.n.html>listbox</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=lower.n.html>lower</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menu.n.html>menu</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menubutton.n.html>menubutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=message.n.html>message</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=option.n.html>option</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=options.n.html>options</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=pack.n.html>pack</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=photo.n.html>photo</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=place.n.html>place</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=radiobutton.n.html>radiobutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=raise.n.html>raise</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scale.n.html>scale</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scrollbar.n.html>scrollbar</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=selection.n.html>selection</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=send.n.html>send</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=text.n.html>text</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tk.n.html>tk</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkvars.n.html>tkvars</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkwait.n.html>tkwait</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=toplevel.n.html>toplevel</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=update.n.html>update</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=winfo.n.html>winfo</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=wm.n.html>wm</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=after.n.html>after</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bell.n.html>bell</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bind.n.html>bind</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bindtags.n.html>bindtags</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bitmap.n.html>bitmap</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=button.n.html>button</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=canvas.n.html>canvas</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=checkbutton.n.html>checkbutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=clipboard.n.html>clipboard</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=destroy.n.html>destroy</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=entry.n.html>entry</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=event.n.html>event</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=focus.n.html>focus</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=frame.n.html>frame</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grab.n.html>grab</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grid.n.html>grid</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=image.n.html>image</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=label.n.html>label</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=listbox.n.html>listbox</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=lower.n.html>lower</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menu.n.html>menu</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menubutton.n.html>menubutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=message.n.html>message</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=option.n.html>option</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=options.n.html>options</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=pack.n.html>pack</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=photo.n.html>photo</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=place.n.html>place</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=radiobutton.n.html>radiobutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=raise.n.html>raise</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scale.n.html>scale</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scrollbar.n.html>scrollbar</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=selection.n.html>selection</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=send.n.html>send</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=text.n.html>text</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tk.n.html>tk</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkvars.n.html>tkvars</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkwait.n.html>tkwait</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=toplevel.n.html>toplevel</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=update.n.html>update</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=winfo.n.html>winfo</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=wm.n.html>wm</A>
</PRE>
<HR><A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC=./Img/ManPageWhite.gif> Back to the <B>STk</B> main page</A>

8
Help/GreenIndex.html
View File

@ -3,9 +3,11 @@
<H2><IMG ALIGN=BOTTOM SRC=Img/RefBookGreen.gif>
The <I>STk</I> green pages</H2><HR>
<PRE>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=create-image.n.html>create-image</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=focus-next.n.html>focus-next</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=listener.n.html>listener</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-dialog.n.html>make-dialog</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=option-menu.n.html>option-menu</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=palette.n.html>palette</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=popup.n.html>popup</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=report-error.n.html>report-error</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=change-image.n.html>change-image</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=find-image.n.html>find-image</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=focus-next.n.html>focus-next</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=free-image.n.html>free-image</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=listener.n.html>listener</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-dialog.n.html>make-dialog</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-image.n.html>make-image</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=option-menu.n.html>option-menu</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=palette.n.html>palette</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=popup.n.html>popup</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=repl-display-prompt.n.html>repl-display-prompt</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=repl-display-result.n.html>repl-display-result</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=report-error.n.html>report-error</A>
</PRE>
<HR><A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC=./Img/ManPageWhite.gif> Back to the <B>STk</B> main page</A>
</BODY></HTML>

4
Help/Makefile
View File

@ -3,7 +3,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 2-Oct-1995 21:17
# Last file update: 30-Oct-1996 12:17
# Last file update: 27-Apr-1998 12:23
include ../config.make
@ -20,7 +20,7 @@ install:
chmod 0755 $(HLP_DIR)/Img
$(CP) Img/*.gif $(HLP_DIR)/Img
chmod 0644 $(HLP_DIR)/Img/*.gif
../Src/test-stk -no -f make-link.stk $(HLP_DIR)
# ../Src/test-stk -no -f make-link.stk $(HLP_DIR)
install.libs:

39
Help/STk-hlp.html
View File

@ -39,25 +39,26 @@ Hereafter is the complete list of STk help pages currently available:
<PRE>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=after.n.html>after</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bell.n.html>bell</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bind.n.html>bind</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bindtags.n.html>bindtags</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bitmap.n.html>bitmap</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=button.n.html>button</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=canvas.n.html>canvas</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=checkbutton.n.html>checkbutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=clipboard.n.html>clipboard</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=create-image.n.html>create-image</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=destroy.n.html>destroy</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=entry.n.html>entry</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=event.n.html>event</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=focus.n.html>focus</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=focus-next.n.html>focus-next</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=frame.n.html>frame</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=ftp.n.html>ftp</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grab.n.html>grab</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grid.n.html>grid</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=image.n.html>image</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=jpeg.n.html>jpeg</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=label.n.html>label</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=listbox.n.html>listbox</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=listener.n.html>listener</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=lower.n.html>lower</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-dialog.n.html>make-dialog</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menu.n.html>menu</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menubutton.n.html>menubutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=message.n.html>message</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=option.n.html>option</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=option-menu.n.html>option-menu</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=options.n.html>options</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=pack.n.html>pack</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=palette.n.html>palette</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=photo.n.html>photo</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=pixmap.n.html>pixmap</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=place.n.html>place</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=popup.n.html>popup</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=posix.n.html>posix</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=radiobutton.n.html>radiobutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=raise.n.html>raise</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=report-error.n.html>report-error</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scale.n.html>scale</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scrollbar.n.html>scrollbar</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=selection.n.html>selection</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=send.n.html>send</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=text.n.html>text</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tk.n.html>tk</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkvars.n.html>tkvars</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkwait.n.html>tkwait</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=toplevel.n.html>toplevel</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=update.n.html>update</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=winfo.n.html>winfo</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=wm.n.html>wm</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=after.n.html>after</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bell.n.html>bell</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bind.n.html>bind</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bindtags.n.html>bindtags</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=bitmap.n.html>bitmap</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=button.n.html>button</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=canvas.n.html>canvas</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=change-image.n.html>change-image</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=checkbutton.n.html>checkbutton</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=clipboard.n.html>clipboard</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=destroy.n.html>destroy</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=entry.n.html>entry</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=event.n.html>event</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=find-image.n.html>find-image</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=focus.n.html>focus</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=focus-next.n.html>focus-next</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=frame.n.html>frame</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=free-image.n.html>free-image</A>
<IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=ftp.n.html>ftp</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grab.n.html>grab</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=grid.n.html>grid</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=image.n.html>image</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=jpeg.n.html>jpeg</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=label.n.html>label</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=listbox.n.html>listbox</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=listener.n.html>listener</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=lower.n.html>lower</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-dialog.n.html>make-dialog</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=make-image.n.html>make-image</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menu.n.html>menu</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=menubutton.n.html>menubutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=message.n.html>message</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=option.n.html>option</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=option-menu.n.html>option-menu</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=options.n.html>options</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=pack.n.html>pack</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=palette.n.html>palette</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=photo.n.html>photo</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=pixmap.n.html>pixmap</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=place.n.html>place</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=popup.n.html>popup</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=posix.n.html>posix</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=radiobutton.n.html>radiobutton</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=raise.n.html>raise</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=repl-display-prompt.n.html>repl-display-prompt</A>
<IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=repl-display-result.n.html>repl-display-result</A> <IMG ALIGN=BOTTOM SRC=Img/GreenBall.gif><A HREF=report-error.n.html>report-error</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scale.n.html>scale</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=scrollbar.n.html>scrollbar</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=selection.n.html>selection</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=send.n.html>send</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=text.n.html>text</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tk.n.html>tk</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkvars.n.html>tkvars</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=tkwait.n.html>tkwait</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=toplevel.n.html>toplevel</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=update.n.html>update</A>
<IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=winfo.n.html>winfo</A> <IMG ALIGN=BOTTOM SRC=Img/BlueBall.gif><A HREF=wm.n.html>wm</A>
</PRE>
</UL>
</UL>

4
Help/YellowIndex.html
View File

@ -3,8 +3,8 @@
<H2><IMG ALIGN=BOTTOM SRC=Img/RefBookYellow.gif>
The <I>STk</I> yellow pages</H2><HR>
<PRE>
<IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=ftp.n.html>ftp</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=jpeg.n.html>jpeg</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=pixmap.n.html>pixmap</A>
<IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=posix.n.html>posix</A>
<IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=ftp.n.html>ftp</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=jpeg.n.html>jpeg</A> <IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=pixmap.n.html>pixmap</A>
<IMG ALIGN=BOTTOM SRC=Img/YellowBall.gif><A HREF=posix.n.html>posix</A>
</PRE>
<HR><A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC=./Img/ManPageWhite.gif> Back to the <B>STk</B> main page</A>
</BODY></HTML>

2
Help/bitmap.n.html
View File

@ -100,7 +100,7 @@ this case the procedure returns an empty string.
<P>
</DL>
<H3><A NAME="M14">SEE ALSO</A></H3>
<B><A HREF="./create-image.n.html">create-image</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<B>make-image</B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

3
Help/button.n.html
View File

@ -49,8 +49,7 @@ ring.
<DT><I>Option keyword</I>: <B><A NAME="M29">:environment</A></B>
<DT><I>STklos slot name</I>: <B>environment</B>
<DD>Specifies the environment in which the <B>:textvariable</B> must be taken.
By convention, the value <B>#f</B> denotes the
STk global environment (the default value of this option is false).
By default, the value of this option is the STk global environment.
<P>
<P>
<DT><I>Name</I>: <B>height</B>

22
Help/create-image.n.html → Help/change-image.n.html
View File

@ -1,4 +1,4 @@
<HTML><HEAD><TITLE>STk procedure - create-image manual page</TITLE></HEAD>
<HTML><HEAD><TITLE>STk procedure - make-image manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> create-image, find-image, change-image, free-image </H2>
@ -8,21 +8,21 @@
Tk
<H3><A NAME="M3">SYNOPSIS</A></H3>
(<B>create-image</B> key <I>create image ?options?</I>)<BR>
(<B>make-image</B> key <I>create image ?options?</I>)<BR>
(<B>find-image</B> key)<BR>
(<B>change-image</B> key <I>create image options</I>)<BR>
(<B>free-image</B> key)<BR>
<H3><A NAME="M4">DESCRIPTION</A></H3>
<B>create-image</B> is a STk procedure which simplifies Tk images
<B>make-image</B> is a STk procedure which simplifies Tk images
creation by providing a homogeneous way to create an image,
independently of its coding format. The first argument of
<B>create-image</B> is a string which identifies the image; if an image
<B>make-image</B> is a string which identifies the image; if an image
with this key has been already loaded in memory, it will not be loaded
again and <B>create-image</B> will return it. If no option is given,
again and <B>make-image</B> will return it. If no option is given,
the identifying image key is taken as a file name (the file is searched
using the variable <B>*image-path*</B>, which must contain a set of
prefix pathnames to prepend to the given filename).
If options are passed to the <B>create-image</B> procedure they must follow
If options are passed to the <B>make-image</B> procedure they must follow
the convention of the options passed in <B><A HREF=../Help/./image.n.html>image create</A></B> just after the
image format. If the image cannot be created, this procedure returns <B>#f</B>.
<P>
@ -31,10 +31,10 @@ Hereafter is a simple usage of this procedure:
<PRE>(require &quot;image&quot;)
(require &quot;pixmap&quot;)
(define img1 (create-image &quot;a pixmap&quot; :file &quot;exit.xpm&quot;))
(define img2 (create-image &quot;a bitmap&quot; :file &quot;default.xbm&quot;))
(define img3 (create-image &quot;a pixmap&quot;))
(define img4 (create-image &quot;x.xpm&quot;))</PRE>
(define img1 (make-image &quot;a pixmap&quot; :file &quot;exit.xpm&quot;))
(define img2 (make-image &quot;a bitmap&quot; :file &quot;default.xbm&quot;))
(define img3 (make-image &quot;a pixmap&quot;))
(define img4 (make-image &quot;x.xpm&quot;))</PRE>
In this case, <I>img3</I> is identical to <I>img1</I> since they use the same key.
<I>Img4</I> is the image associated to the file &quot;x.xpm&quot; found according to
the *image-path* varaiable.
@ -45,7 +45,7 @@ the *image-path* varaiable.
<P>
<B>change-image</B> changes the content of an image previously created with
<B>create-image</B>. Options are the identical to <B>create-image</B>
<B>make-image</B>. Options are the identical to <B>make-image</B>
options.
<P>
Example:

54
Help/checkbutton.n.html
View File

@ -31,15 +31,19 @@
is typically invoked when mouse button 1 is released over the button
window. The button's global variable (<B>:variable</B> option) will
be updated before the procedure is invoked.
OP :environment environment Environment environment
Specifies the environment in which the <B>:textvariable</B> or
<B>:variable</B>must be taken. By convention, the value <B>#f</B> denotes the
STk global environment (the default value of this option is false).
<P>
<P>
<DT><I>Name</I>: <B>environment</B>
<DT><I>Class</I>: <B>Environment</B>
<DT><I>Option keyword</I>: <B><A NAME="M29">:environment</A></B>
<DT><I>STklos slot name</I>: <B>environment</B>
<DD>Specifies the environment in which the <B>:textvariable</B> must be taken.
By default, the value of this option is the STk global environment.
<P>
<P>
<DT><I>Name</I>: <B>height</B>
<DT><I>Class</I>: <B>Height</B>
<DT><I>Option keyword</I>: <B><A NAME="M29">:height</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M30">:height</A></B>
<DT><I>STklos slot name</I>: <B>height</B>
<DD>Specifies a desired height for the button.
If an image or bitmap is being displayed in the button then the value is in
@ -51,7 +55,7 @@ from the size of the image or bitmap or text being displayed in it.
<P>
<DT><I>Name</I>: <B>indicatorOn</B>
<DT><I>Class</I>: <B>IndicatorOn</B>
<DT><I>Option keyword</I>: <B><A NAME="M30">:indicatoron</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M31">:indicatoron</A></B>
<DT><I>STklos slot name</I>: <B>indicator-on</B>
<DD>Specifies whether or not the indicator should be drawn. Must be a
proper boolean value. If false, the <B>relief</B> option is
@ -61,7 +65,7 @@ selected and raised otherwise.
<P>
<DT><I>Name</I>: <B>offValue</B>
<DT><I>Class</I>: <B>Value</B>
<DT><I>Option keyword</I>: <B><A NAME="M31">:offvalue</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M32">:offvalue</A></B>
<DT><I>STklos slot name</I>: <B>off-value</B>
<DD>Specifies value to store in the button's associated variable whenever
this button is deselected. Defaults to <B>#f</B>.
@ -69,7 +73,7 @@ this button is deselected. Defaults to <B>#f</B>.
<P>
<DT><I>Name</I>: <B>onValue</B>
<DT><I>Class</I>: <B>Value</B>
<DT><I>Option keyword</I>: <B><A NAME="M32">:onvalue</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M33">:onvalue</A></B>
<DT><I>STklos slot name</I>: <B>on-value</B>
<DD>Specifies value to store in the button's associated variable whenever
this button is selected. Defaults to <B>#t</B>.
@ -77,7 +81,7 @@ this button is selected. Defaults to <B>#t</B>.
<P>
<DT><I>Name</I>: <B>selectColor</B>
<DT><I>Class</I>: <B>Background</B>
<DT><I>Option keyword</I>: <B><A NAME="M33">:selectcolor</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M34">:selectcolor</A></B>
<DT><I>STklos slot name</I>: <B>select-color</B>
<DD>Specifies a background color to use when the button is selected.
If <B>indicatorOn</B> is true then the color applies to the indicator.
@ -92,7 +96,7 @@ displaying when the widget is selected.
<P>
<DT><I>Name</I>: <B>selectImage</B>
<DT><I>Class</I>: <B>SelectImage</B>
<DT><I>Option keyword</I>: <B><A NAME="M34">:selectimage</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M35">:selectimage</A></B>
<DT><I>STklos slot name</I>: <B>select-image</B>
<DD>Specifies an image to display (in place of the <B>image</B> option)
when the checkbutton is selected.
@ -102,7 +106,7 @@ specified.
<P>
<DT><I>Name</I>: <B>state</B>
<DT><I>Class</I>: <B>State</B>
<DT><I>Option keyword</I>: <B><A NAME="M35">:state</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M36">:state</A></B>
<DT><I>STklos slot name</I>: <B>state</B>
<DD>Specifies one of three states for the checkbutton: <B>normal</B>, <B>active</B>,
or <B>disabled</B>. In normal state the checkbutton is displayed using the
@ -118,7 +122,7 @@ In this state the <B>disabledForeground</B> and
<P>
<DT><I>Name</I>: <B>stringvalue</B>
<DT><I>Class</I>: <B>StringValue</B>
<DT><I>Option keyword</I>: <B><A NAME="M36">:stringvalue</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M37">:stringvalue</A></B>
<DT><I>STklos slot name</I>: <B>string-value</B>
<DD>Specifies if the value set to <B>variable</B> by <B>:offvalue</B> or
<B>:onvalue</B> must be <I>stringified</I>. For instance, with
@ -137,7 +141,7 @@ it is set to 10 or 20. Default value for <B>:stringvalue</B> is <B>#t</B>.
<P>
<DT><I>Name</I>: <B>variable</B>
<DT><I>Class</I>: <B>Variable</B>
<DT><I>Option keyword</I>: <B><A NAME="M37">:variable</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M38">:variable</A></B>
<DT><I>STklos slot name</I>: <B>variable</B>
<DD>Specifies name of global variable to set to indicate whether
or not this button is selected. Defaults to the name of the
@ -147,7 +151,7 @@ window's path name).
<P>
<DT><I>Name</I>: <B>width</B>
<DT><I>Class</I>: <B>Width</B>
<DT><I>Option keyword</I>: <B><A NAME="M38">:width</A></B>
<DT><I>Option keyword</I>: <B><A NAME="M39">:width</A></B>
<DT><I>STklos slot name</I>: <B>width</B>
<DD>Specifies a desired width for the button.
If an image or bitmap is being displayed in the button then the value is in
@ -157,7 +161,7 @@ If this option isn't specified, the button's desired width is computed
from the size of the image or bitmap or text being displayed in it.
<P>
</DL>
<H3><A NAME="M39">DESCRIPTION</A></H3>
<H3><A NAME="M40">DESCRIPTION</A></H3>
The <B>checkbutton</B> procedure creates a new window (given by the
<I>widget-name</I> argument) and makes it into a checkbutton widget.
Additional
@ -211,7 +215,7 @@ In addition, each checkbutton monitors its associated variable and
automatically selects and deselects itself when the variables value
changes to and from the button's ``on'' value.
<H3><A NAME="M40">WIDGET PROCEDURE</A></H3>
<H3><A NAME="M41">WIDGET PROCEDURE</A></H3>
The <B>checkbutton</B> procedure creates a new STk procedure whose
name is <I>widget-name</I>. This
procedure may be used to invoke various
@ -222,13 +226,13 @@ determine the exact behavior of the procedure. The following
procedures are possible for checkbutton widgets:
<P>
<DL>
<DT><A NAME="M41">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
<DT><A NAME="M42">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
Returns the current value of the configuration option given
by <I>option</I>.
<I>Option</I> may have any of the values accepted by the <B>checkbutton</B>
procedure.
<P>
<DT><A NAME="M42">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
<DT><A NAME="M43">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? ?<I>value option value ...</I>?)</A><DD>
Query or modify the configuration options of the widget.
If no <I>option</I> is specified, returns a list describing all of
the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
@ -242,35 +246,35 @@ this case the procedure returns an empty list.
<I>Option</I> may have any of the values accepted by the <B>checkbutton</B>
procedure.
<P>
<DT><A NAME="M43">(<I>widget-name '</I><B>deselect</B>)</A><DD>
<DT><A NAME="M44">(<I>widget-name '</I><B>deselect</B>)</A><DD>
Deselects the checkbutton and sets the associated variable to its ``off''
value.
<P>
<DT><A NAME="M44">(<I>widget-name '</I><B>flash</B>)</A><DD>
<DT><A NAME="M45">(<I>widget-name '</I><B>flash</B>)</A><DD>
Flashes the checkbutton. This is accomplished by redisplaying the checkbutton
several times, alternating between active and normal colors. At
the end of the flash the checkbutton is left in the same normal/active
state as when the procedure was invoked.
This procedure is ignored if the checkbutton's state is <B>disabled</B>.
<P>
<DT><A NAME="M45">(<I>widget-name '</I><B>invoke</B>)</A><DD>
<DT><A NAME="M46">(<I>widget-name '</I><B>invoke</B>)</A><DD>
Does just what would have happened if the user invoked the checkbutton
with the mouse: toggle the selection state of the button and invoke
the STk procedure associated with the checkbutton, if there is one
(return value is undefined)
This procedure is ignored if the checkbutton's state is <B>disabled</B>.
<P>
<DT><A NAME="M46">(<I>widget-name '</I><B>select</B>)</A><DD>
<DT><A NAME="M47">(<I>widget-name '</I><B>select</B>)</A><DD>
Selects the checkbutton and sets the associated variable to its ``on''
value.
<P>
<DT><A NAME="M47">(<I>widget-name '</I><B>toggle</B>)</A><DD>
<DT><A NAME="M48">(<I>widget-name '</I><B>toggle</B>)</A><DD>
Toggles the selection state of the button, redisplaying it and
modifying its associated variable to reflect the new state.
<P>
</DL>
<H3><A NAME="M48">BINDINGS</A></H3>
<H3><A NAME="M49">BINDINGS</A></H3>
Tk automatically creates class bindings for checkbuttons that give them
the following default behavior:
<OL>
@ -297,7 +301,7 @@ actions occur: the checkbutton is completely non-responsive.
The behavior of checkbuttons can be changed by defining new bindings for
individual widgets or by redefining the class bindings.
<H3><A NAME="M49">SEE ALSO</A></H3>
<H3><A NAME="M50">SEE ALSO</A></H3>
<B><A HREF="./button.n.html">button</A></B>, <B><A HREF="./radiobutton.n.html">radiobutton</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>

3
Help/entry.n.html
View File

@ -27,8 +27,7 @@
<DT><I>Option keyword</I>: <B><A NAME="M27">:environment</A></B>
<DT><I>STklos slot name</I>: <B>environment</B>
<DD>Specifies the environment in which the <B>:textvariable</B> must be taken.
By convention, the value <B>#f</B> denotes the
STk global environment (the default value of this option is false).
By default, the value of this option is the STk global environment.
<P>
<P>
<DT><I>Name</I>: <B>show</B>

69
Help/find-image.n.html Normal file
View File

@ -0,0 +1,69 @@
<HTML><HEAD><TITLE>STk procedure - make-image manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> create-image, find-image, change-image, free-image </H2>
<I>an easier way to manipulate Tk images
</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
<H3><A NAME="M2">PACKAGE</A></H3>
Tk
<H3><A NAME="M3">SYNOPSIS</A></H3>
(<B>make-image</B> key <I>create image ?options?</I>)<BR>
(<B>find-image</B> key)<BR>
(<B>change-image</B> key <I>create image options</I>)<BR>
(<B>free-image</B> key)<BR>
<H3><A NAME="M4">DESCRIPTION</A></H3>
<B>make-image</B> is a STk procedure which simplifies Tk images
creation by providing a homogeneous way to create an image,
independently of its coding format. The first argument of
<B>make-image</B> is a string which identifies the image; if an image
with this key has been already loaded in memory, it will not be loaded
again and <B>make-image</B> will return it. If no option is given,
the identifying image key is taken as a file name (the file is searched
using the variable <B>*image-path*</B>, which must contain a set of
prefix pathnames to prepend to the given filename).
If options are passed to the <B>make-image</B> procedure they must follow
the convention of the options passed in <B><A HREF=../Help/./image.n.html>image create</A></B> just after the
image format. If the image cannot be created, this procedure returns <B>#f</B>.
<P>
Hereafter is a simple usage of this procedure:
<P>
<PRE>(require &quot;image&quot;)
(require &quot;pixmap&quot;)
(define img1 (make-image &quot;a pixmap&quot; :file &quot;exit.xpm&quot;))
(define img2 (make-image &quot;a bitmap&quot; :file &quot;default.xbm&quot;))
(define img3 (make-image &quot;a pixmap&quot;))
(define img4 (make-image &quot;x.xpm&quot;))</PRE>
In this case, <I>img3</I> is identical to <I>img1</I> since they use the same key.
<I>Img4</I> is the image associated to the file &quot;x.xpm&quot; found according to
the *image-path* varaiable.
<P>
<B>find-image</B> returns the image associated to the given <I>key</I> or
<B>#f</B> if this image has not been loaded yet.
<P>
<B>change-image</B> changes the content of an image previously created with
<B>make-image</B>. Options are the identical to <B>make-image</B>
options.
<P>
Example:
<PRE>(button '.b1 :image img1)
(button '.b2 :image img2)
(button '.b3 :image img1) ; .b3 content is identical to .b1
(pack .b1 .b2 .b3)
(change-image &quot;a pixmap&quot; :file &quot;default.xbm&quot;)</PRE>
After the execution of <B>change-image</B>, both <I>.b1</I> and <I>.b3</I>
graphical contents are changed.
<P>
<B>delete-image</B> removes the image with the given key of the cache.
The memory used by this image is returned to the system. See the
discussion about how this image is displayed in <B><A HREF=../Help/./image.n.html>image delete</A></B>.
<H3><A NAME="M5">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

69
Help/free-image.n.html Normal file
View File

@ -0,0 +1,69 @@
<HTML><HEAD><TITLE>STk procedure - make-image manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> create-image, find-image, change-image, free-image </H2>
<I>an easier way to manipulate Tk images
</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
<H3><A NAME="M2">PACKAGE</A></H3>
Tk
<H3><A NAME="M3">SYNOPSIS</A></H3>
(<B>make-image</B> key <I>create image ?options?</I>)<BR>
(<B>find-image</B> key)<BR>
(<B>change-image</B> key <I>create image options</I>)<BR>
(<B>free-image</B> key)<BR>
<H3><A NAME="M4">DESCRIPTION</A></H3>
<B>make-image</B> is a STk procedure which simplifies Tk images
creation by providing a homogeneous way to create an image,
independently of its coding format. The first argument of
<B>make-image</B> is a string which identifies the image; if an image
with this key has been already loaded in memory, it will not be loaded
again and <B>make-image</B> will return it. If no option is given,
the identifying image key is taken as a file name (the file is searched
using the variable <B>*image-path*</B>, which must contain a set of
prefix pathnames to prepend to the given filename).
If options are passed to the <B>make-image</B> procedure they must follow
the convention of the options passed in <B><A HREF=../Help/./image.n.html>image create</A></B> just after the
image format. If the image cannot be created, this procedure returns <B>#f</B>.
<P>
Hereafter is a simple usage of this procedure:
<P>
<PRE>(require &quot;image&quot;)
(require &quot;pixmap&quot;)
(define img1 (make-image &quot;a pixmap&quot; :file &quot;exit.xpm&quot;))
(define img2 (make-image &quot;a bitmap&quot; :file &quot;default.xbm&quot;))
(define img3 (make-image &quot;a pixmap&quot;))
(define img4 (make-image &quot;x.xpm&quot;))</PRE>
In this case, <I>img3</I> is identical to <I>img1</I> since they use the same key.
<I>Img4</I> is the image associated to the file &quot;x.xpm&quot; found according to
the *image-path* varaiable.
<P>
<B>find-image</B> returns the image associated to the given <I>key</I> or
<B>#f</B> if this image has not been loaded yet.
<P>
<B>change-image</B> changes the content of an image previously created with
<B>make-image</B>. Options are the identical to <B>make-image</B>
options.
<P>
Example:
<PRE>(button '.b1 :image img1)
(button '.b2 :image img2)
(button '.b3 :image img1) ; .b3 content is identical to .b1
(pack .b1 .b2 .b3)
(change-image &quot;a pixmap&quot; :file &quot;default.xbm&quot;)</PRE>
After the execution of <B>change-image</B>, both <I>.b1</I> and <I>.b3</I>
graphical contents are changed.
<P>
<B>delete-image</B> removes the image with the given key of the cache.
The memory used by this image is returned to the system. See the
discussion about how this image is displayed in <B><A HREF=../Help/./image.n.html>image delete</A></B>.
<H3><A NAME="M5">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

2
Help/image.n.html
View File

@ -83,7 +83,7 @@ for more information.
<P>
</DL>
<H3><A NAME="M15">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./create-image.n.html">create-image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B>make-image</B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

2
Help/jpeg.n.html
View File

@ -59,7 +59,7 @@ This implementation of the jpeg image format was done
by Andrew Swan <I>&lt;aswan@cs.berkeley.edu&gt;</I>
<H3><A NAME="M11">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./create-image.n.html">create-image</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B>make-image</B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookYellow.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

3
Help/label.n.html
View File

@ -26,8 +26,7 @@
<DT><I>Option keyword</I>: <B><A NAME="M25">:environment</A></B>
<DT><I>STklos slot name</I>: <B>environment</B>
<DD>Specifies the environment in which the <B>:textvariable</B> must be taken.
By convention, the value <B>#f</B> denotes the
STk global environment (the default value of this option is false).
By default, the value of this option is the STk global environment.
<P>
<P>
<DT><I>Name</I>: <B>height</B>

69
Help/make-image.n.html Normal file
View File

@ -0,0 +1,69 @@
<HTML><HEAD><TITLE>STk procedure - make-image manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> create-image, find-image, change-image, free-image </H2>
<I>an easier way to manipulate Tk images
</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
<H3><A NAME="M2">PACKAGE</A></H3>
Tk
<H3><A NAME="M3">SYNOPSIS</A></H3>
(<B>make-image</B> key <I>create image ?options?</I>)<BR>
(<B>find-image</B> key)<BR>
(<B>change-image</B> key <I>create image options</I>)<BR>
(<B>free-image</B> key)<BR>
<H3><A NAME="M4">DESCRIPTION</A></H3>
<B>make-image</B> is a STk procedure which simplifies Tk images
creation by providing a homogeneous way to create an image,
independently of its coding format. The first argument of
<B>make-image</B> is a string which identifies the image; if an image
with this key has been already loaded in memory, it will not be loaded
again and <B>make-image</B> will return it. If no option is given,
the identifying image key is taken as a file name (the file is searched
using the variable <B>*image-path*</B>, which must contain a set of
prefix pathnames to prepend to the given filename).
If options are passed to the <B>make-image</B> procedure they must follow
the convention of the options passed in <B><A HREF=../Help/./image.n.html>image create</A></B> just after the
image format. If the image cannot be created, this procedure returns <B>#f</B>.
<P>
Hereafter is a simple usage of this procedure:
<P>
<PRE>(require &quot;image&quot;)
(require &quot;pixmap&quot;)
(define img1 (make-image &quot;a pixmap&quot; :file &quot;exit.xpm&quot;))
(define img2 (make-image &quot;a bitmap&quot; :file &quot;default.xbm&quot;))
(define img3 (make-image &quot;a pixmap&quot;))
(define img4 (make-image &quot;x.xpm&quot;))</PRE>
In this case, <I>img3</I> is identical to <I>img1</I> since they use the same key.
<I>Img4</I> is the image associated to the file &quot;x.xpm&quot; found according to
the *image-path* varaiable.
<P>
<B>find-image</B> returns the image associated to the given <I>key</I> or
<B>#f</B> if this image has not been loaded yet.
<P>
<B>change-image</B> changes the content of an image previously created with
<B>make-image</B>. Options are the identical to <B>make-image</B>
options.
<P>
Example:
<PRE>(button '.b1 :image img1)
(button '.b2 :image img2)
(button '.b3 :image img1) ; .b3 content is identical to .b1
(pack .b1 .b2 .b3)
(change-image &quot;a pixmap&quot; :file &quot;default.xbm&quot;)</PRE>
After the execution of <B>change-image</B>, both <I>.b1</I> and <I>.b3</I>
graphical contents are changed.
<P>
<B>delete-image</B> removes the image with the given key of the cache.
The memory used by this image is returned to the system. See the
discussion about how this image is displayed in <B><A HREF=../Help/./image.n.html>image delete</A></B>.
<H3><A NAME="M5">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

35
Help/make-link.stk
View File

@ -1,35 +0,0 @@
;;;;
;;;; This script is executed for linking manual pages which are identical
;;;; Data are taken in the "links.stk" file
;;;;
;;;; Copyright © 1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;; Permission to use, copy, and/or distribute this software and its
;;;; documentation for any purpose and without fee is hereby granted, provided
;;;; that both the above copyright notice and this permission notice appear in
;;;; all copies and derived works. Fees for distribution or use of this
;;;; software or derived works may only be charged with express written
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Oct-1996 11:27
;;;; Last file update: 30-Oct-1996 12:31
;;;;
(load "../Doc/Manual/links.stk")
(define (make-link dir source destination)
(for-each (lambda (x)
(let ((cmd (format #f "cd ~A; rm -f ~A.n.html; ln ~A.n.html ~A.n.html"
dir x source x)))
(system cmd)))
destination))
(for-each (lambda (l) (make-link (car *argv*) (car l) (cdr l)))
*links*)
(exit 0)

5
Help/menu.n.html
View File

@ -384,9 +384,8 @@ Not available for separator or tear-off entries.
<DT><A NAME="M49"><B>:environment </B><I>value</I></A><DD>
Available only for checkbutton and radiobutton entries.
Specifies the environment in which the checkbutton or radiobutton
<B>:variable</B> must be taken.
By convention, the value <B>#f</B> denotes the
STk global environment (the default value of this option is false).
<B>:variable</B> must be taken. By default, this environment is the
STk global environment.
<P>
<DT><A NAME="M50"><B>:font </B><I>value</I></A><DD>
Specifies the font to use when drawing the label or accelerator

3
Help/menubutton.n.html
View File

@ -39,8 +39,7 @@ menu button. <B>flush</B> pops the menu directly over the menubutton.
<DT><I>Option keyword</I>: <B><A NAME="M29">:environment</A></B>
<DT><I>STklos slot name</I>: <B>environment</B>
<DD>Specifies the environment in which the <B>:textvariable</B> must be taken.
By convention, the value <B>#f</B> denotes the
STk global environment (the default value of this option is false).
By default, the value of this option is the STk global environment.
<P>
<P>
<DT><I>Name</I>: <B>height</B>

2
Help/photo.n.html
View File

@ -327,7 +327,7 @@ based on his earlier photo widget and some suggestions from
John Ousterhout.
<H3><A NAME="M37">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./create-image.n.html">create-image</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B>make-image</B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./pixmap.n.html">pixmap</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookBlue.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

2
Help/pixmap.n.html
View File

@ -68,7 +68,7 @@ This implementation of the pixmap image format has been stolen in the Tix
package written by Ioi Kim Lam.
<H3><A NAME="M12">SEE ALSO</A></H3>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B><A HREF="./create-image.n.html">create-image</A></B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>
<B><A HREF="./bitmap.n.html">bitmap</A></B>, <B>make-image</B>, <B><A HREF="./image.n.html">image</A></B>, <B><A HREF="./jpeg.n.html">jpeg</A></B>, <B><A HREF="./photo.n.html">photo</A></B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookYellow.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

33
Help/repl-display-prompt.n.html Normal file
View File

@ -0,0 +1,33 @@
<HTML><HEAD><TITLE>STk procedure - repl-display-prompt manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> repl-display-prompt, repl-display-result</H2>
<I>Display a prompt/result in
interactive mode</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
<H3><A NAME="M2">SYNOPSIS</A></H3>
(<B>repl-display-prompt </B><I>module</I>)<BR>
(<B>repl-display-result </B><I>value</I>)<BR>
<H3><A NAME="M3">DESCRIPTION</A></H3>
<B>Repl-display-prompt</B> is called by the interactive toplevel loop
before reading a <I>sexpr</I>. This procedure is called with one parameter:
the selected module in the toplevel loop.
<P>
A simple form of this procedure could be:
<PRE>(define (repl-display-prompt module)
(let ((p (current-error-port)))
(format p &quot;~A&gt; &quot; (module-name module))
(flush p)))</PRE>
<P>
<B>Repl-display-result</B> is called by the interactive toplevel loop
after the evaluation of a <I>sexpr</I>. This procedure is called with the
result of this evaluation as parameter.
<P>
A simple form, mimicking the MIT Scheme way of presenting results, could be:
<PRE>(define (repl-display-result value)
(format #t &quot;\\n;Value: ~S\\n\\n&quot; value))</PRE>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

33
Help/repl-display-result.n.html Normal file
View File

@ -0,0 +1,33 @@
<HTML><HEAD><TITLE>STk procedure - repl-display-prompt manual page</TITLE></HEAD>
<BR>
<BODY bgcolor = #c3ffc3>
<H2><IMG ALIGN=BOTTOM SRC="./Img/ManPageGreen.gif"> repl-display-prompt, repl-display-result</H2>
<I>Display a prompt/result in
interactive mode</I><P><IMG ALIGN=TOP SRC="./Img/line-red.gif">
<H3><A NAME="M2">SYNOPSIS</A></H3>
(<B>repl-display-prompt </B><I>module</I>)<BR>
(<B>repl-display-result </B><I>value</I>)<BR>
<H3><A NAME="M3">DESCRIPTION</A></H3>
<B>Repl-display-prompt</B> is called by the interactive toplevel loop
before reading a <I>sexpr</I>. This procedure is called with one parameter:
the selected module in the toplevel loop.
<P>
A simple form of this procedure could be:
<PRE>(define (repl-display-prompt module)
(let ((p (current-error-port)))
(format p &quot;~A&gt; &quot; (module-name module))
(flush p)))</PRE>
<P>
<B>Repl-display-result</B> is called by the interactive toplevel loop
after the evaluation of a <I>sexpr</I>. This procedure is called with the
result of this evaluation as parameter.
<P>
A simple form, mimicking the MIT Scheme way of presenting results, could be:
<PRE>(define (repl-display-result value)
(format #t &quot;\\n;Value: ~S\\n\\n&quot; value))</PRE>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookGreen.gif"> Back to the <B>STk</B> main page</A>
</BODY></HTML>

2
Help/report-error.n.html
View File

@ -16,7 +16,7 @@ causes the error (or the empty list when there is no object to incriminate).
The STk library includes a default <B>report-error</B> procedure
that posts a dialog box containing the error message and offers
the user a chance to see a stack trace showing where the
error occurred and its associated environment..
error occurred and its associated environment.
<P>
If an error occurs while is <B>report-error</B> execution, the
interpreter detect that the procedure is buggy and it redirect further

15
Help/stk.1.html
View File

@ -159,14 +159,19 @@ variable is a list of paths to try when in a load command.
This variable serves to initialize the <I>*help-path*</I> Scheme variable. It
must contain a list of documentation directories. This variable is used by the help
procedure.
<P>
<DT><A NAME="M28"><I>STK_IMAGE_PATH</I></A><DD>
This variable serves to initialize the <I>*image-path*</I> Scheme variable. It
must contain a list of images directories. This variable is used by the make-image
procedure.
<P>
</DL>
<H3><A NAME="M28">FILES</A></H3>
<H3><A NAME="M29">FILES</A></H3>
<DL>
<DT><A NAME="M29"><I>./init.stk</I></A><DD>
<DT><A NAME="M30"><I>$STK_LIBRARY/STk/init.stk</I></A><DD>
<DT><A NAME="M30"><I>./init.stk</I></A><DD>
<DT><A NAME="M31"><I>$STK_LIBRARY/STk/init.stk</I></A><DD>
When <B>stk</B> starts running, it tries to load the file <I>init.stk</I>
in the current directory. If this file is not present, it tries to load
this file in the <B>STk_LIBRARY</B> directory (the value of <B>STk_LIBRARY</B>
@ -174,14 +179,14 @@ is automatically computed to be in a sibling directory of the interpreter
executable.
<P>
<DT><A NAME="M31"><I>~/.stkrc</I></A><DD>
<DT><A NAME="M32"><I>~/.stkrc</I></A><DD>
Standard <I>init.stk</I> file tries to load the file <I>~/.stkrc</I>. This file
can be used to store functions definitions or variables settings that you want
to be executed at each interpreter invocation.
<P>
</DL>
<H3><A NAME="M32">SEE ALSO</A></H3>
<H3><A NAME="M33">SEE ALSO</A></H3>
<B>wish(1)</B>
<P><IMG ALIGN=TOP SRC="./Img/line-red.gif"><P>
<A HREF=./STk-hlp.html><IMG ALIGN=BOTTOM SRC="./Img/RefBookWhite.gif"> Back to the <B>STk</B> main page</A>

395
Help/text.n.html
View File

@ -149,8 +149,8 @@ path name of the new window.
<P>
A text widget displays one or more lines of text and allows that
text to be edited.
Text widgets support three different kinds of annotations on the
text, called tags, marks, and embedded windows.
Text widgets support four different kinds of annotations on the
text, called tags, marks, embedded windows or embedded images.
Tags allow different portions of the text
to be displayed with different fonts and colors.
In addition, STk procedures can be associated with tags so
@ -167,6 +167,10 @@ See MARKS below for more details.
The third form of annotation allows arbitrary windows to be
embedded in a text widget.
See EMBEDDED WINDOWS below for more details.
<P>
The fourth form of annotation allows Tk images to be embedded in a text
widget.
See EMBEDDED IMAGES below for more details.
<H3><A NAME="M38">INDICES</A></H3>
Many of the widget procedures for texts take one or more indices
@ -220,28 +224,38 @@ Indicates the position of the embedded window whose name is
This form generates an error if there is no embedded window
by the given name.
<P>
<DT><A NAME="M47">.VS</A><DD>
<I>imageName</I>
Indicates the position of the embedded image whose name is
<I>imageName</I>.
This form generates an error if there is no embedded image
by the given name.
<P>
</DL>
<P>
If the <I>base</I> could match more than one of the above forms, such
as a <I>mark</I> and <I>imageName</I> both having the same value, then
the form earlier in the above list takes precedence.
If modifiers follow the base index, each one of them must have one
of the forms listed below. Keywords such as <B>chars</B> and <B>wordend</B>
may be abbreviated as long as the abbreviation is unambiguous.
<P>
<DL>
<DT><A NAME="M47"><B>+ </B><I>count</I><B> chars</B></A><DD>
<DT><A NAME="M48"><B>+ </B><I>count</I><B> chars</B></A><DD>
Adjust the index forward by <I>count</I> characters, moving to later
lines in the text if necessary. If there are fewer than <I>count</I>
characters in the text after the current index, then set the index
to the last character in the text.
Spaces on either side of <I>count</I> are optional.
<P>
<DT><A NAME="M48"><B>: </B><I>count</I><B> chars</B></A><DD>
<DT><A NAME="M49"><B>: </B><I>count</I><B> chars</B></A><DD>
Adjust the index backward by <I>count</I> characters, moving to earlier
lines in the text if necessary. If there are fewer than <I>count</I>
characters in the text before the current index, then set the index
to the first character in the text.
Spaces on either side of <I>count</I> are optional.
<P>
<DT><A NAME="M49"><B>+ </B><I>count</I><B> lines</B></A><DD>
<DT><A NAME="M50"><B>+ </B><I>count</I><B> lines</B></A><DD>
Adjust the index forward by <I>count</I> lines, retaining the same
character position within the line. If there are fewer than <I>count</I>
lines after the line containing the current index, then set the index
@ -251,7 +265,7 @@ character position, adjust the character position to refer to the last
character of the line (the newline).
Spaces on either side of <I>count</I> are optional.
<P>
<DT><A NAME="M50"><B>- </B><I>count</I><B> lines</B></A><DD>
<DT><A NAME="M51"><B>- </B><I>count</I><B> lines</B></A><DD>
Adjust the index backward by <I>count</I> lines, retaining the same
character position within the line. If there are fewer than <I>count</I>
lines before the line containing the current index, then set the index
@ -261,19 +275,19 @@ character position, adjust the character position to refer to the last
character of the line (the newline).
Spaces on either side of <I>count</I> are optional.
<P>
<DT><A NAME="M51"><B>linestart</B></A><DD>
<DT><A NAME="M52"><B>linestart</B></A><DD>
Adjust the index to refer to the first character on the line.
<P>
<DT><A NAME="M52"><B>lineend</B></A><DD>
<DT><A NAME="M53"><B>lineend</B></A><DD>
Adjust the index to refer to the last character on the line (the newline).
<P>
<DT><A NAME="M53"><B>wordstart</B></A><DD>
<DT><A NAME="M54"><B>wordstart</B></A><DD>
Adjust the index to refer to the first character of the word containing
the current index. A word consists of any number of adjacent characters
that are letters, digits, or underscores, or a single character that
is not one of these.
<P>
<DT><A NAME="M54"><B>wordend</B></A><DD>
<DT><A NAME="M55"><B>wordend</B></A><DD>
Adjust the index to refer to the character just after the last one of the
word containing the current index. If the current index refers to the last
character of the text then it is not modified.
@ -285,7 +299,7 @@ left-to-right order. For example, the index ``<B>end - 1 chars</B>''
refers to the next-to-last character in the text and
``<B>insert wordstart - 1 c</B>'' refers to the character just before
the first one in the word containing the insertion cursor.
<H3><A NAME="M55">TAGS</A></H3>
<H3><A NAME="M56">TAGS</A></H3>
The first form of annotation in text widgets is a tag.
A tag is a textual string that is associated with some of the characters
in a text.
@ -320,12 +334,12 @@ with the tag override the default display style.
The following options are currently supported for tags:
<P>
<DL>
<DT><A NAME="M56"><B>:background </B><I>color</I></A><DD>
<DT><A NAME="M57"><B>:background </B><I>color</I></A><DD>
<I>Color</I> specifies the background color to use for characters
associated with the tag.
It may have any of the forms accepted by <B>Tk_GetColor</B>.
<P>
<DT><A NAME="M57"><B>:bgstipple </B><I>bitmap</I></A><DD>
<DT><A NAME="M58"><B>:bgstipple </B><I>bitmap</I></A><DD>
<I>Bitmap</I> specifies a bitmap that is used as a stipple pattern
for the background.
It may have any of the forms accepted by <B>Tk_GetBitmap</B>.
@ -333,7 +347,7 @@ If <I>bitmap</I> hasn't been specified, or if it is specified
as an empty string, then a solid fill will be used for the
background.
<P>
<DT><A NAME="M58"><B>:borderwidth </B><I>pixels</I></A><DD>
<DT><A NAME="M59"><B>:borderwidth </B><I>pixels</I></A><DD>
<I>Pixels</I> specifies the width of a 3-D border to draw around
the background.
It may have any of the forms accepted by <B>Tk_GetPixels</B>.
@ -342,7 +356,7 @@ option to give a 3-D appearance to the background for characters;
it is ignored unless the <B>:background</B> option
has been set for the tag.
<P>
<DT><A NAME="M59"><B>:fgstipple </B><I>bitmap</I></A><DD>
<DT><A NAME="M60"><B>:fgstipple </B><I>bitmap</I></A><DD>
<I>Bitmap</I> specifies a bitmap that is used as a stipple pattern
when drawing text and other foreground information such as
underlines.
@ -350,16 +364,16 @@ It may have any of the forms accepted by <B>Tk_GetBitmap</B>.
If <I>bitmap</I> hasn't been specified, or if it is specified
as an empty string, then a solid fill will be used.
<P>
<DT><A NAME="M60"><B>:font </B><I>fontName</I></A><DD>
<DT><A NAME="M61"><B>:font </B><I>fontName</I></A><DD>
<I>FontName</I> is the name of a font to use for drawing characters.
It may have any of the forms accepted by <B>Tk_GetFontStruct</B>.
<P>
<DT><A NAME="M61"><B>:foreground </B><I>color</I></A><DD>
<DT><A NAME="M62"><B>:foreground </B><I>color</I></A><DD>
<I>Color</I> specifies the color to use when drawing text and other
foreground information such as underlines.
It may have any of the forms accepted by <B>Tk_GetColor</B>.
<P>
<DT><A NAME="M62"><B>:justify </B><I>justify</I></A><DD>
<DT><A NAME="M63"><B>:justify </B><I>justify</I></A><DD>
If the first character of a display line has a tag for which this
option has been specified, then <I>justify</I> determines how to
justify the line.
@ -367,7 +381,7 @@ It must be one of <B>left</B>, <B>right</B>, or <B>center</B>.
If a line wraps, then the justification for each line on the
display is determined by the first character of that display line.
<P>
<DT><A NAME="M63"><B>:lmargin1 </B><I>pixels</I></A><DD>
<DT><A NAME="M64"><B>:lmargin1 </B><I>pixels</I></A><DD>
If the first character of a text line has a tag for which this
option has been specified, then <I>pixels</I> specifies how
much the line should be indented from the left edge of the
@ -378,7 +392,7 @@ If a line of text wraps, this option only applies to the
first line on the display; the <B>:lmargin2</B> option controls
the indentation for subsequent lines.
<P>
<DT><A NAME="M64"><B>:lmargin2 </B><I>pixels</I></A><DD>
<DT><A NAME="M65"><B>:lmargin2 </B><I>pixels</I></A><DD>
If the first character of a display line has a tag for which this
option has been specified, and if the display line is not the
first for its text line (i.e., the text line has wrapped), then
@ -389,7 +403,7 @@ distances.
This option is only used when wrapping is enabled, and it only
applies to the second and later display lines for a text line.
<P>
<DT><A NAME="M65"><B>:offset </B><I>pixels</I></A><DD>
<DT><A NAME="M66"><B>:offset </B><I>pixels</I></A><DD>
<I>Pixels</I> specifies an amount by which the text's baseline
should be offset vertically from the baseline of the overall
line, in pixels.
@ -398,12 +412,12 @@ and a negative offset can be used for subscripts.
<I>Pixels</I> may have any of the standard forms for screen
distances.
<P>
<DT><A NAME="M66"><B>:overstrike </B><I>boolean</I></A><DD>
<DT><A NAME="M67"><B>:overstrike </B><I>boolean</I></A><DD>
Specifies whether or not to draw a horizontal rule through
the middle of characters.
<I>Boolean</I> may have any of the forms accepted by <B>Tk_GetBoolean</B>.
<P>
<DT><A NAME="M67"><B>:relief </B><I>relief</I></A><DD>
<DT><A NAME="M68"><B>:relief </B><I>relief</I></A><DD>
<I>Relief</I> specifies the 3-D relief to use for drawing backgrounds,
in any of the forms accepted by <B>Tk_GetRelief</B>.
This option is used in conjunction with the <B>:borderwidth</B>
@ -411,7 +425,7 @@ option to give a 3-D appearance to the background for characters;
it is ignored unless the <B>:background</B> option
has been set for the tag.
<P>
<DT><A NAME="M68"><B>:rmargin </B><I>pixels</I></A><DD>
<DT><A NAME="M69"><B>:rmargin </B><I>pixels</I></A><DD>
If the first character of a display line has a tag for which this
option has been specified, then <I>pixels</I> specifies how wide
a margin to leave between the end of the line and the right
@ -423,27 +437,27 @@ If a text line wraps, the right margin for each line on the
display is determined by the first character of that display
line.
<P>
<DT><A NAME="M69"><B>:spacing1 </B><I>pixels</I></A><DD>
<DT><A NAME="M70"><B>:spacing1 </B><I>pixels</I></A><DD>
<I>Pixels</I> specifies how much additional space should be
left above each text line, using any of the standard forms for
screen distances.
If a line wraps, this option only applies to the first
line on the display.
<P>
<DT><A NAME="M70"><B>:spacing2 </B><I>pixels</I></A><DD>
<DT><A NAME="M71"><B>:spacing2 </B><I>pixels</I></A><DD>
For lines that wrap, this option specifies how much additional
space to leave between the display lines for a single text line.
<I>Pixels</I> may have any of the standard forms for screen
distances.
<P>
<DT><A NAME="M71"><B>:spacing3 </B><I>pixels</I></A><DD>
<DT><A NAME="M72"><B>:spacing3 </B><I>pixels</I></A><DD>
<I>Pixels</I> specifies how much additional space should be
left below each text line, using any of the standard forms for
screen distances.
If a line wraps, this option only applies to the last
line on the display.
<P>
<DT><A NAME="M72"><B>:tabs </B><I>tabList</I></A><DD>
<DT><A NAME="M73"><B>:tabs </B><I>tabList</I></A><DD>
<I>TabList</I> specifies a set of tab stops in the same form
as for the <B>:tabs</B> option for the text widget. This
option only applies to a display line if it applies to the
@ -455,12 +469,12 @@ an empty list, such as <B>:tags &quot; &quot;</B>, then it requests
default 8-character tabs as described for the <B>tags</B>
widget option.
<P>
<DT><A NAME="M73"><B>:underline </B><I>boolean</I></A><DD>
<DT><A NAME="M74"><B>:underline </B><I>boolean</I></A><DD>
<I>Boolean</I> specifies whether or not to draw an underline underneath
characters.
It may have any of the forms accepted by <B>Tk_GetBoolean</B>.
<P>
<DT><A NAME="M74"><B>:wrap </B><I>mode</I></A><DD>
<DT><A NAME="M75"><B>:wrap </B><I>mode</I></A><DD>
<I>Mode</I> specifies how to handle lines that are wider than the
text's window.
It has the same legal values as the <B>:wrap</B> option
@ -494,7 +508,7 @@ procedure below.
The third use for tags is in managing the selection.
See THE SELECTION below.
<H3><A NAME="M75">MARKS</A></H3>
<H3><A NAME="M76">MARKS</A></H3>
The second form of annotation in text widgets is a mark.
Marks are used for remembering particular places in a text.
They are something like tags, in that they have names and
@ -538,7 +552,7 @@ motions if a mouse button is down; the update will be deferred
until all mouse buttons have been released).
Neither of these special marks may be deleted.
<H3><A NAME="M76">EMBEDDED WINDOWS</A></H3>
<H3><A NAME="M77">EMBEDDED WINDOWS</A></H3>
The third form of annotation in text widgets is an embedded window.
Each embedded window annotation causes a window to be displayed
at a particular point in the text.
@ -565,7 +579,7 @@ widget procedure.
The following options are currently supported:
<P>
<DL>
<DT><A NAME="M77"><B>:align </B><I>where</I></A><DD>
<DT><A NAME="M78"><B>:align </B><I>where</I></A><DD>
If the window is not as tall as the line in which it is displayed,
this option determines where the window is displayed in the line.
<I>Where</I> must have one of the values <B>top</B> (align the top of the window
@ -575,7 +589,7 @@ window with the bottom of the line's area),
or <B>baseline</B> (align the bottom of the window with the baseline
of the line).
<P>
<DT><A NAME="M78"><B>:create </B><I>procedure</I></A><DD>
<DT><A NAME="M79"><B>:create </B><I>procedure</I></A><DD>
Specifies a STk procedure that may be evaluated to create the window
for the annotation.
If no <B>:window</B> option has been specified for the annotation
@ -586,17 +600,17 @@ that window as its result.
If the annotation's window should ever be deleted, <I>procedure</I>
will be evaluated again the next time the annotation is displayed.
<P>
<DT><A NAME="M79"><B>:padx </B><I>pixels</I></A><DD>
<DT><A NAME="M80"><B>:padx </B><I>pixels</I></A><DD>
<I>Pixels</I> specifies the amount of extra space to leave on
each side of the embedded window.
It may have any of the usual forms defined for a screen distance.
<P>
<DT><A NAME="M80"><B>:pady </B><I>pixels</I></A><DD>
<DT><A NAME="M81"><B>:pady </B><I>pixels</I></A><DD>
<I>Pixels</I> specifies the amount of extra space to leave on
the top and on the bottom of the embedded window.
It may have any of the usual forms defined for a screen distance.
<P>
<DT><A NAME="M81"><B>:stretch </B><I>boolean</I></A><DD>
<DT><A NAME="M82"><B>:stretch </B><I>boolean</I></A><DD>
If the requested height of the embedded window is less than the
height of the line in which it is displayed, this option can be
used to specify whether the window should be stretched vertically
@ -605,13 +619,84 @@ If the <B>:pady</B> option has been specified as well, then the
requested padding will be retained even if the window is
stretched.
<P>
<DT><A NAME="M82"><B>:window </B><I>widget-name</I></A><DD>
<DT><A NAME="M83"><B>:window </B><I>widget-name</I></A><DD>
Specifies the window to display in the annotation.
<P>
</DL>
<H3><A NAME="M83">THE SELECTION</A></H3>
Text widgets support the standard X selection.
<H3><A NAME="M84">EMBEDDED IMAGES</A></H3>
The final form of annotation in text widgets is an embedded image.
Each embedded image annotation causes an image to be displayed
at a particular point in the text.
There may be any number of embedded images in a text widget,
and a particular image may be embedded in multiple places in the same
text widget.
The embedded image's position on the screen will be updated as the
text is modified or scrolled.
Each embedded image occupies one character's worth of index space
in the text widget, and it may be referred to either by
its position in the widget's index space, or the name it is assigned
when the image is inserted into the text widget widh <B><A HREF=../Help/./image.n.html>image create</A></B>.
If the range of text containing the embedded image is deleted then
that copy of the image is removed from the screen.
<P>
When an embedded image is added to a text widget with the <B>image
create</B> widget command, a name unique to this instance of the image
is returned. This name may then be used to refer to this image
instance. The name is taken to be the value of the <B>:name</B> option
(described below). If the <B>:name</B> option is not provided, the
<B>:image</B> name is used instead. If the <I>imageName</I> is already
in use in the text widget, then <B>#</B><I>nn</I> is added to the end of the
<I>imageName</I>, where <I>nn</I> is an arbitrary integer. This insures
the <I>imageName</I> is unique.
Once this name is assigned to this instance of the image, it does not
change, even though the <B>:image</B> or <B>:name</B> values can be changed
with <B><A HREF=../Help/./image.n.html>image configure</A></B>.
<P>
When an embedded image is added to a text widget with the
<B><A HREF=../Help/./image.n.html>image create</A></B> widget command, several configuration
options may be associated with it.
These options may be modified later with the <B><A HREF=../Help/./image.n.html>image configure</A></B>
widget command.
The following options are currently supported:
<P>
<DL>
<DT><A NAME="M85">\fB\:align \fIwhere\fR</A><DD>
If the image is not as tall as the line in which it is displayed,
this option determines where the image is displayed in the line.
<I>Where</I> must have one of the values <B>top</B> (align the top of the image
with the top of the line), <B>center</B> (center the image
within the range of the line), <B>bottom</B> (align the bottom of the
image with the bottom of the line's area),
or <B>baseline</B> (align the bottom of the image with the baseline
of the line).
<P>
<DT><A NAME="M86">\fB\:image \fIimage\fR</A><DD>
Specifies the name of the Tk image to display in the annotation.
If <I>image</I> is not a valid Tk image, then an error is returned.
<P>
<DT><A NAME="M87">\fB\:name \fIImageName\fR</A><DD>
Specifies the name by which this image instance may be referenced in
the text widget. If <I>ImageName</I> is not supplied, then the
name of the Tk image is used instead.
If the <I>imageName</I> is already in use, <I>#nn</I> is appended to
the end of the name as described above.
<P>
<DT><A NAME="M88">\fB\:padx \fIpixels\fR</A><DD>
<I>Pixels</I> specifies the amount of extra space to leave on
each side of the embedded image.
It may have any of the usual forms defined for a screen distance.
<P>
<DT><A NAME="M89">\fB\:pady \fIpixels\fR</A><DD>
<I>Pixels</I> specifies the amount of extra space to leave on
the top and on the bottom of the embedded image.
It may have any of the usual forms defined for a screen distance.
<P>
</DL>
<H3><A NAME="M90">THE SELECTION</A></H3>
Selection support is implemented via tags.
If the <B>exportSelection</B> option for the text widget is true
then the <B>sel</B> tag will be associated with the selection:
@ -638,7 +723,7 @@ the text widget are tied to the <B>:background</B>,
tag: changes in either will automatically be reflected in the
other.
<H3><A NAME="M84">THE INSERTION CURSOR</A></H3>
<H3><A NAME="M91">THE INSERTION CURSOR</A></H3>
The mark named <B>insert</B> has special significance in text widgets.
It is defined automatically when a text widget is created and it
may not be unset with the ``<I>widget-name </I><B>mark unset</B>'' widget
@ -647,7 +732,7 @@ The <B>insert</B> mark represents the position of the insertion
cursor, and the insertion cursor will automatically be drawn at
this point whenever the text widget has the input focus.
<H3><A NAME="M85">WIDGET PROCEDURE</A></H3>
<H3><A NAME="M92">WIDGET PROCEDURE</A></H3>
The <B>text</B> procedure creates a new STk procedure whose
name is the same as the path name of the text's window. This
procedure may be used to invoke various
@ -659,7 +744,7 @@ determine the exact behavior of the procedure. The following
procedures are possible for text widgets:
<P>
<DL>
<DT><A NAME="M86">(<I>widget-name '</I><B>bbox </B><I>index</I>)</A><DD>
<DT><A NAME="M93">(<I>widget-name '</I><B>bbox </B><I>index</I>)</A><DD>
Returns a list of four elements describing the screen area
of the character given by <I>index</I>.
The first two elements of the list give the x and y coordinates
@ -671,13 +756,13 @@ the return value reflects just the visible part.
If the character is not visible on the screen then the return
value is an empty list.
<P>
<DT><A NAME="M87">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
<DT><A NAME="M94">(<I>widget-name '</I><B>cget</B> <I>option</I>)</A><DD>
Returns the current value of the configuration option given
by <I>option</I>.
<I>Option</I> may have any of the values accepted by the <B>text</B>
procedure.
<P>
<DT><A NAME="M88">(<I>widget-name '</I><B>compare</B> <I>index1 op index2</I>)</A><DD>
<DT><A NAME="M95">(<I>widget-name '</I><B>compare</B> <I>index1 op index2</I>)</A><DD>
Compares the indices given by <I>index1</I> and <I>index2</I> according
to the relational operator given by <I>op</I>, and returns 1 if
the relationship is satisfied and 0 if it isn't.
@ -687,7 +772,7 @@ the same character, if <I>op</I> is &lt; then 1 is returned if <I>index1</I>
refers to an earlier character in the text than <I>index2</I>, and
so on.
<P>
<DT><A NAME="M89">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? <I>?value option value ...</I>?)</A><DD>
<DT><A NAME="M96">(<I>widget-name '</I><B>configure</B> ?<I>option</I>? <I>?value option value ...</I>?)</A><DD>
Query or modify the configuration options of the widget.
If no <I>option</I> is specified, returns a list describing all of
the available options for <I>widget-name</I> (see <B>Tk_ConfigureInfo</B> for
@ -701,8 +786,8 @@ this case the procedure returns an empty string.
<I>Option</I> may have any of the values accepted by the <B>text</B>
procedure.
<P>
<DT><A NAME="M90">(<I>widget-name '</I><B>debug </B>)</A><DD>
<DT><A NAME="M91">(<I>widget-name '</I><B>debug </B><I>boolean</I>)</A><DD>
<DT><A NAME="M97">(<I>widget-name '</I><B>debug </B>)</A><DD>
<DT><A NAME="M98">(<I>widget-name '</I><B>debug </B><I>boolean</I>)</A><DD>
If <I>boolean</I> is specified, then it must have one of the true or
false values accepted by Tcl_GetBoolean.
If the value is a true one then internal consistency checks will be
@ -717,8 +802,8 @@ debugging on or off in any widget turns it on or off for all widgets.
For widgets with large amounts of text, the consistency checks may
cause a noticeable slow-down.
<P>
<DT><A NAME="M92">(<I>widget-name '</I><B>delete </B><I>index1 </I>)</A><DD>
<DT><A NAME="M93">(<I>widget-name '</I><B>delete </B><I>index1 </I><I>index2</I>)</A><DD>
<DT><A NAME="M99">(<I>widget-name '</I><B>delete </B><I>index1 </I>)</A><DD>
<DT><A NAME="M100">(<I>widget-name '</I><B>delete </B><I>index1 </I><I>index2</I>)</A><DD>
Delete a range of characters from the text.
If both <I>index1</I> and <I>index2</I> are specified, then delete
all the characters starting with the one given by <I>index1</I>
@ -732,7 +817,7 @@ It is not allowable to delete characters in a way that would leave
the text without a newline as the last character.
The procedure returns an empty string.
<P>
<DT><A NAME="M94">(<I>widget-name '</I><B>dlineinfo </B><I>index</I>)</A><DD>
<DT><A NAME="M101">(<I>widget-name '</I><B>dlineinfo </B><I>index</I>)</A><DD>
Returns a list with five elements describing the area occupied
by the display line containing <I>index</I>.
The first two elements of the list give the x and y coordinates
@ -751,7 +836,7 @@ by characters and embedded windows.
If the display line containing <I>index</I> is not visible on
the screen then the return value is an empty list.
<P>
<DT><A NAME="M95">(<I>widget-name </I><B>'dump </B>?<I>switches</I>? <I>index1 </I>?<I>index2</I>?)</A><DD>
<DT><A NAME="M102">(<I>widget-name </I><B>'dump </B>?<I>switches</I>? <I>index1 </I>?<I>index2</I>?)</A><DD>
Return the contents of the text widget from <I>index1</I> up to,
but not including <I>index2</I>,
including the text and
@ -774,24 +859,24 @@ One or more of the following switches (or abbreviations thereof)
may be specified to control the dump:
<P>
<DL>
<DT><A NAME="M96"><B>:all</B></A><DD>
<DT><A NAME="M103"><B>:all</B></A><DD>
Return information about all elements: text, marks, tags, and windows.
This is the default.
<P>
<DT><A NAME="M97"><B>:command </B><I>closure</I></A><DD>
<DT><A NAME="M104"><B>:command </B><I>closure</I></A><DD>
Instead of returning the information as the result of the dump operation,
invoke the <I>closure</I> on each element of the text widget within the range.
The command must have three arguments: <I>key</I>, <I>value</I>, and <I>index</I>.
<P>
<DT><A NAME="M98"><B>:mark</B></A><DD>
<DT><A NAME="M105"><B>:mark</B></A><DD>
Include information about marks in the dump results.
<P>
<DT><A NAME="M99"><B>:tag</B></A><DD>
<DT><A NAME="M106"><B>:tag</B></A><DD>
Include information about tag transitions in the dump results. Tag information is
returned as <B>tagon</B> and <B>tagoff</B> elements that indicate the
begin and end of each range of each tag, respectively.
<P>
<DT><A NAME="M100"><B>:text</B></A><DD>
<DT><A NAME="M107"><B>:text</B></A><DD>
Include information about text in the dump results. The value is the
text up to the next element or the end of range indicated by <I>index2</I>.
A text element does not span newlines. A multi-line block of text that
@ -799,7 +884,7 @@ contains no marks or tag transitions will still be dumped as a set
of text seqments that each end with a newline. The newline is part
of the value.
<P>
<DT><A NAME="M101"><B>:window</B></A><DD>
<DT><A NAME="M108"><B>:window</B></A><DD>
Include information about embedded windows in the dump results.
The value of a window is its Tk pathname, unless the window
has not been created yet. (It must have a create script.)
@ -810,8 +895,8 @@ window by its index position to get more information.
</UL>
<P>
<DL>
<DT><A NAME="M102">(<I>widget-name </I><B>'get </B><I>index1 </I>)</A><DD>
<DT><A NAME="M103">(<I>widget-name </I><B>'get </B><I>index1 </I><I>index2</I>)</A><DD>
<DT><A NAME="M109">(<I>widget-name </I><B>'get </B><I>index1 </I>)</A><DD>
<DT><A NAME="M110">(<I>widget-name </I><B>'get </B><I>index1 </I><I>index2</I>)</A><DD>
Return a range of characters from the text.
The return value will be all the characters in the text starting
with the one whose index is <I>index1</I> and ending just before
@ -824,14 +909,59 @@ is past the end of the file or <I>index2</I> is less than or equal
to <I>index1</I>) then an empty string is returned.
If the specified range contains embedded windows, no information
about them is included in the returned string.
<P>
<DT><A NAME="M104">(<I>widget-name '</I><B>index </B><I>index</I>)</A><DD>
<DT><A NAME="M111">(\fwidget-name \fB'image \fIoption \fR?\fIarg arg ...\fR?)</A><DD>
This command is used to manipulate embedded images.
The behavior of the command depends on the <I>option</I> argument
that follows the <B>tag</B> argument.
The following forms of the command are currently supported:
<P>
<P>
<DL>
<DT><A NAME="M112">(\fwidget-name \fB'image 'cget\fR \fIindex option\fR)</A><DD>
Returns the value of a configuration option for an embedded image.
<I>Index</I> identifies the embedded image, and <I>option</I>
specifies a particular configuration option, which must be one of
the ones listed in the section EMBEDDED IMAGES.
<P>
<DT><A NAME="M113">(\fwidget-name \fB'image 'configure \fIindex\fR ?\fIoption value ...\fR?)</A><DD>
Query or modify the configuration options for an embedded image.
If no <I>option</I> is specified, returns a list describing all of
the available options for the embedded image at <I>index</I>
(see <B>Tk_ConfigureInfo</B> for information on the format of this list).
If <I>option</I> is specified with no <I>value</I>, then the command
returns a list describing the one named option (this list will be
identical to the corresponding sublist of the value returned if no
<I>option</I> is specified).
If one or more <I>option-value</I> pairs are specified, then the command
modifies the given option(s) to have the given value(s); in
this case the command returns an empty string.
See EMBEDDED IMAGES for information on the options that
are supported.
<P>
<DT><A NAME="M114">(\fwidget-name \fB'image 'create \fIindex\fR ?\fIoption value ...\fR?)</A><DD>
This command creates a new image annotation, which will appear
in the text at the position given by <I>index</I>.
Any number of <I>option-value</I> pairs may be specified to
configure the annotation.
Returns a unique identifier that may be used as an index to refer to
this image.
See EMBEDDED IMAGES for information on the options that
are supported, and a description of the identifier returned.
<P>
<DT><A NAME="M115">(\fwidget-name \fB'image 'names\fR)</A><DD>
Returns a list whose elements are the names of all image instances currently
embedded in <I>window</I>.
<P>
</DL>
<DT><A NAME="M116">(<I>widget-name '</I><B>index </B><I>index</I>)</A><DD>
Returns the position corresponding to <I>index</I> in the form
<I>(line . char)</I> where <I>line</I> is the line number and <I>char</I>
is the character number.
<I>Index</I> may have any of the forms described under INDICES above.
<P>
<DT><A NAME="M105">(<I>widget-name '</I><B>insert </B><I>index chars </I>?<I>tagList chars tagList ...</I>?)</A><DD>
<DT><A NAME="M117">(<I>widget-name '</I><B>insert </B><I>index chars </I>?<I>tagList chars tagList ...</I>?)</A><DD>
Inserts all of the <I>chars</I> arguments just before the character at
<I>index</I>.
If <I>index</I> refers to the end of the text (the character after
@ -851,7 +981,7 @@ they produce the same effect as if a separate <B>insert</B> widget
procedure had been issued for each pair, in order.
The last <I>tagList</I> argument may be omitted.
<P>
<DT><A NAME="M106">(<I>widget-name '</I><B>mark </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
<DT><A NAME="M118">(<I>widget-name '</I><B>mark </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
This procedure is used to manipulate marks. The exact behavior of
the procedure depends on the <I>option</I> argument that follows
the <B>mark</B> argument. The following forms of the procedure
@ -859,19 +989,19 @@ are currently supported:
<P>
<P>
<DL>
<DT><A NAME="M107">(<I>widget-name '</I><B>mark 'gravity </B><I>markName</I>)</A><DD>
<DT><A NAME="M108">(<I>widget-name '</I><B>mark 'gravity </B><I>markName</I> <I>direction</I>)</A><DD>
<DT><A NAME="M119">(<I>widget-name '</I><B>mark 'gravity </B><I>markName</I>)</A><DD>
<DT><A NAME="M120">(<I>widget-name '</I><B>mark 'gravity </B><I>markName</I> <I>direction</I>)</A><DD>
If <I>direction</I> is not specified, returns <B>left</B> or <B>right</B>
to indicate which of its adjacent characters <I>markName</I> is attached
to.
If <I>direction</I> is specified, it must be <B>left</B> or <B>right</B>;
the gravity of <I>markName</I> is set to the given value.
<P>
<DT><A NAME="M109">(<I>widget-name '</I><B>mark 'names</B>)</A><DD>
<DT><A NAME="M121">(<I>widget-name '</I><B>mark 'names</B>)</A><DD>
Returns a list whose elements are the names of all the marks that
are currently set.
<P>
<DT><A NAME="M110">(<I>widget-name '</I><B>mark 'next </B><I>index</I>)</A><DD>
<DT><A NAME="M122">(<I>widget-name '</I><B>mark 'next </B><I>index</I>)</A><DD>
Returns the name of the next mark at or after <I>index</I>.
If <I>index</I> is specified in numerical form, then the search for
the next mark begins at that index.
@ -886,7 +1016,7 @@ If a mark has been set to the special <B>end index,
then it appears to be </B><I>after</I> <B>end</B> with respect to the <B>mark next</B> operation.
An empty list is returned if there are no marks after <I>index</I>.
<P>
<DT><A NAME="M111">(<I>widget-name '</I><B>mark 'previous </B><I>index</I>)</A><DD>
<DT><A NAME="M123">(<I>widget-name '</I><B>mark 'previous </B><I>index</I>)</A><DD>
Returns the name of the mark at or before <I>index</I>.
If <I>index</I> is specified in numerical form, then the search for
the previous mark begins with the character just before that index.
@ -899,33 +1029,33 @@ step through all the marks in a text widget in the reverse order
as the mark information returned by the <B>dump</B> operation.
An empty list is returned if there are no marks before <I>index</I>.
<P>
<DT><A NAME="M112">(<I>widget-name '</I><B>mark 'set </B><I>markName index</I>)</A><DD>
<DT><A NAME="M124">(<I>widget-name '</I><B>mark 'set </B><I>markName index</I>)</A><DD>
Sets the mark named <I>markName</I> to a position just before the
character at <I>index</I>.
If <I>markName</I> already exists, it is moved from its old position;
if it doesn't exist, a new mark is created.
This procedure returns an empty string.
<P>
<DT><A NAME="M113">(<I>widget-name '</I><B>mark 'unset </B><I>markName </I>?<I>markName markName ...</I>?)</A><DD>
<DT><A NAME="M125">(<I>widget-name '</I><B>mark 'unset </B><I>markName </I>?<I>markName markName ...</I>?)</A><DD>
Remove the mark corresponding to each of the <I>markName</I> arguments.
The removed marks will not be usable in indices and will not be
returned by future calls to ``<I>widget-name </I><B>mark names</B>''.
This procedure returns an empty string.
<P>
</DL>
<DT><A NAME="M114">(<I>widget-name '</I><B>scan</B> <I>option args</I>)</A><DD>
<DT><A NAME="M126">(<I>widget-name '</I><B>scan</B> <I>option args</I>)</A><DD>
This procedure is used to implement scanning on texts. It has
two forms, depending on <I>option</I>:
<P>
<P>
<DL>
<DT><A NAME="M115">(<I>widget-name '</I><B>scan 'mark </B><I>x y</I>)</A><DD>
<DT><A NAME="M127">(<I>widget-name '</I><B>scan 'mark </B><I>x y</I>)</A><DD>
Records <I>x</I> and <I>y</I> and the current view in the text window,
for use in conjunction with later <B>scan dragto</B> procedures.
Typically this procedure is associated with a mouse button press in
the widget. It returns an empty string.
<P>
<DT><A NAME="M116">(<I>widget-name '</I><B>scan 'dragto </B><I>x y</I>)</A><DD>
<DT><A NAME="M128">(<I>widget-name '</I><B>scan 'dragto </B><I>x y</I>)</A><DD>
This procedure computes the difference between its <I>x</I> and <I>y</I>
arguments and the <I>x</I> and <I>y</I> arguments to the last
<B>scan mark</B> procedure for the widget.
@ -936,7 +1066,7 @@ dragging the text at high speed through the window. The return
value is an empty string.
<P>
</DL>
<DT><A NAME="M117">(<I>widget-name </I><B>search </B>?<I>switches</I>? <I>pattern index </I>?<I>stopIndex</I>?)</A><DD>
<DT><A NAME="M129">(<I>widget-name </I><B>search </B>?<I>switches</I>? <I>pattern index </I>?<I>stopIndex</I>?)</A><DD>
Searches the text in <I>widget-name</I> starting at <I>index</I> for a range
of characters that matches <I>pattern</I>.
If a match is found, the index of the first character in the match is
@ -946,35 +1076,35 @@ may be specified to control the search:
<P>
<P>
<DL>
<DT><A NAME="M118"><B>:forwards</B></A><DD>
<DT><A NAME="M130"><B>:forwards</B></A><DD>
The search will proceed forward through the text, finding the first
matching range starting at or after the position given by <I>index</I>.
This is the default.
<P>
<DT><A NAME="M119"><B>:backwards</B></A><DD>
<DT><A NAME="M131"><B>:backwards</B></A><DD>
The search will proceed backward through the text, finding the
matching range closest to <I>index</I> whose first character
is before <I>index</I>.
<P>
<DT><A NAME="M120"><B>:exact</B></A><DD>
<DT><A NAME="M132"><B>:exact</B></A><DD>
Use exact matching: the characters in the matching range must be
identical to those in <I>pattern</I>.
This is the default.
<P>
<DT><A NAME="M121"><B>:regexp</B></A><DD>
<DT><A NAME="M133"><B>:regexp</B></A><DD>
Treat <I>pattern</I> as a regular expression and match it against
the text using the rules for regular expressions (see the <B>regexp</B>
procedure for details).
<P>
<DT><A NAME="M122"><B>:nocase</B></A><DD>
<DT><A NAME="M134"><B>:nocase</B></A><DD>
Ignore case differences between the pattern and the text.
<P>
<DT><A NAME="M123"><B>:count</B><I> varName</I></A><DD>
<DT><A NAME="M135"><B>:count</B><I> varName</I></A><DD>
The argument following <B>:count</B> gives the name of a variable;
if a match is found, the number of characters in the matching
range will be stored in the variable.
<P>
<DT><A NAME="M124"><B>:-</B></A><DD>
<DT><A NAME="M136"><B>:-</B></A><DD>
This switch has no effect except to terminate the list of switches:
the next argument will be treated as <I>pattern</I> even if it starts
with <B>:</B>.
@ -996,7 +1126,7 @@ when the beginning or end of the text is reached, the search
continues at the other end until the starting location is reached
again; if <I>stopIndex</I> is specified, no wrap-around will occur.
</UL>
<DT><A NAME="M125">(<I>widget-name '</I><B>see </B><I>index</I>)</A><DD>
<DT><A NAME="M137">(<I>widget-name '</I><B>see </B><I>index</I>)</A><DD>
Adjusts the view in the window so that the character given by <I>index</I>
is completely visible.
If <I>index</I> is already visible then the procedure does nothing.
@ -1006,7 +1136,7 @@ edge of the window.
If <I>index</I> is far out of view, then the procedure centers
<I>index</I> in the window.
<P>
<DT><A NAME="M126">(<I>widget-name </I><B>'tag </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
<DT><A NAME="M138">(<I>widget-name </I><B>'tag </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
This procedure is used to manipulate tags. The exact behavior of the
procedure depends on the <I>option</I> argument that follows the
<B>tag</B> argument. The following forms of the procedure are currently
@ -1014,7 +1144,7 @@ supported:
<P>
<P>
<DL>
<DT><A NAME="M127">(<I>widget-name </I><B>'tag 'add </B><I>tagName index1 </I>?<I>index2 index1 index2 ...</I>?)</A><DD>
<DT><A NAME="M139">(<I>widget-name </I><B>'tag 'add </B><I>tagName index1 </I>?<I>index2 index1 index2 ...</I>?)</A><DD>
Associate the tag <I>tagName</I> with all of the characters starting
with <I>index1</I> and ending just before
<I>index2</I> (the character at <I>index2</I> isn't tagged).
@ -1026,9 +1156,9 @@ If there are no characters in the specified range (e.g. <I>index1</I>
is past the end of the file or <I>index2</I> is less than or equal
to <I>index1</I>) then the procedure has no effect.
<P>
<DT><A NAME="M128">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I>)</A><DD>
<DT><A NAME="M129">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I> <I>sequence</I>)</A><DD>
<DT><A NAME="M130">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I> <I>sequence</I> <I>script</I>)</A><DD>
<DT><A NAME="M140">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I>)</A><DD>
<DT><A NAME="M141">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I> <I>sequence</I>)</A><DD>
<DT><A NAME="M142">(<I>widget-name </I><B>'tag 'bind </B><I>tagName</I> <I>sequence</I> <I>script</I>)</A><DD>
This procedure associates <I>script</I> with the tag given by
<I>tagName</I>.
Whenever the event sequence given by <I>sequence</I> occurs for a
@ -1052,20 +1182,19 @@ defined for <I>tagName</I>.
<UL>
<P>
The only events for which bindings may be specified are those related
to the mouse and keyboard, such as <B>Enter</B>, <B>Leave</B>,
<B>ButtonPress</B>, <B>Motion</B>, and <B>KeyPress</B>.
Event bindings for a text widget use the <B>current</B> mark
described under MARKS above.
An <B>Enter</B> event triggers for a tag when the tag first
becomes present on the current character, and a <B>Leave</B>
event triggers for a tag when it ceases to be present on
the current character.
to the mouse and keyboard (such as <B>Enter</B>, <B>Leave</B>,
<B>ButtonPress</B>, <B>Motion</B>, and <B>KeyPress</B>) or virtual events.
Event bindings for a text widget use the <B>current</B> mark described
under MARKS above. An <B>Enter</B> event triggers for a tag when the tag
first becomes present on the current character, and a <B>Leave</B> event
triggers for a tag when it ceases to be present on the current character.
<B>Enter</B> and <B>Leave</B> events can happen either because the
<B>current</B> mark moved or because the character at that
position changed.
Note that these events are different than <B>Enter</B> and <B>Leave</B>
events for windows.
Mouse and keyboard events are directed to the current character.
<B>current</B> mark moved or because the character at that position
changed. Note that these events are different than <B>Enter</B> and
<B>Leave</B> events for windows. Mouse and keyboard events are directed
to the current character. If a virtual event is used in a binding, that
binding can trigger only if the virtual event is defined by an underlying
mouse-related or keyboard-related event.
<P>
It is possible for the current character to have multiple tags,
and for each of them to have a binding for a particular event
@ -1085,13 +1214,13 @@ tag bindings.
The tag bindings will be invoked first, followed by bindings
for the window as a whole.
</UL>
<DT><A NAME="M131">(<I>widget-name </I><B>'tag 'cget</B> <I>tagName option</I>)</A><DD>
<DT><A NAME="M143">(<I>widget-name </I><B>'tag 'cget</B> <I>tagName option</I>)</A><DD>
This procedure returns the current value of the option named <I>option</I>
associated with the tag given by <I>tagName</I>.
<I>Option</I> may have any of the values accepted by the <B>tag configure</B>
widget procedure.
<P>
<DT><A NAME="M132">(<I>widget-name </I><B>'tag 'configure </B><I>tagName</I> ?<I>option</I>? ?<I>value</I>? ?<I>option value ...</I>?)</A><DD>
<DT><A NAME="M144">(<I>widget-name </I><B>'tag 'configure </B><I>tagName</I> ?<I>option</I>? ?<I>value</I>? ?<I>option value ...</I>?)</A><DD>
This procedure is similar to the <B>configure</B> widget procedure except
that it modifies options associated with the tag given by <I>tagName</I>
instead of modifying options for the overall text widget.
@ -1107,7 +1236,7 @@ modifies the given option(s) to have the given value(s) in <I>tagName</I>;
in this case the procedure returns an empty list.
See TAGS above for details on the options available for tags.
<P>
<DT><A NAME="M133">(<I>widget-name </I><B>'tag 'delete </B><I>tagName </I>?<I>tagName ...</I>?)</A><DD>
<DT><A NAME="M145">(<I>widget-name </I><B>'tag 'delete </B><I>tagName </I>?<I>tagName ...</I>?)</A><DD>
Deletes all tag information for each of the <I>tagName</I>
arguments.
The procedure removes the tags from all characters in the file
@ -1115,15 +1244,15 @@ and also deletes any other information associated with the tags,
such as bindings and display information.
The procedure returns an empty list.
<P>
<DT><A NAME="M134">(<I>widget-name</I><B>'tag 'lower </B><I>tagName </I>)</A><DD>
<DT><A NAME="M135">(<I>widget-name</I><B>'tag 'lower </B><I>tagName </I> <I>belowThis</I>)</A><DD>
<DT><A NAME="M146">(<I>widget-name</I><B>'tag 'lower </B><I>tagName </I>)</A><DD>
<DT><A NAME="M147">(<I>widget-name</I><B>'tag 'lower </B><I>tagName </I> <I>belowThis</I>)</A><DD>
Changes the priority of tag <I>tagName</I> so that it is just lower
in priority than the tag whose name is <I>belowThis</I>.
If <I>belowThis</I> is omitted, then <I>tagName</I>'s priority
is changed to make it lowest priority of all tags.
<P>
<DT><A NAME="M136">(<I>widget-name </I><B>'tag 'names </B>)</A><DD>
<DT><A NAME="M137">(<I>widget-name </I><B>'tag 'names </B> <I>index</I>)</A><DD>
<DT><A NAME="M148">(<I>widget-name </I><B>'tag 'names </B>)</A><DD>
<DT><A NAME="M149">(<I>widget-name </I><B>'tag 'names </B> <I>index</I>)</A><DD>
Returns a list whose elements are the names of all the tags that
are active at the character position given by <I>index</I>.
If <I>index</I> is omitted, then the return value will describe
@ -1135,8 +1264,8 @@ the tag).
The list will be sorted in order from lowest priority to highest
priority.
<P>
<DT><A NAME="M138">(<I>widget-name </I><B>'tag 'nextrange </B><I>tagName index1 </I>)</A><DD>
<DT><A NAME="M139">(<I>widget-name </I><B>'tag 'nextrange </B><I>tagName index1 </I> <I>index2</I>)</A><DD>
<DT><A NAME="M150">(<I>widget-name </I><B>'tag 'nextrange </B><I>tagName index1 </I>)</A><DD>
<DT><A NAME="M151">(<I>widget-name </I><B>'tag 'nextrange </B><I>tagName index1 </I> <I>index2</I>)</A><DD>
This procedure searches the text for a range of characters tagged
with <I>tagName</I> where the first character of the range is
no earlier than the character at <I>index1</I> and no later than
@ -1151,8 +1280,8 @@ If no matching range is found then the return value is an
empty list.
If <I>index2</I> is not given then it defaults to the end of the text.
<P>
<DT><A NAME="M140">(<I>widget-name '</I><B>tag 'prevrange </B><I>tagName index1 </I>)</A><DD>
<DT><A NAME="M141">(<I>widget-name '</I><B>tag 'prevrange </B><I>tagName index1 </I> <I>index2</I>)</A><DD>
<DT><A NAME="M152">(<I>widget-name '</I><B>tag 'prevrange </B><I>tagName index1 </I>)</A><DD>
<DT><A NAME="M153">(<I>widget-name '</I><B>tag 'prevrange </B><I>tagName index1 </I> <I>index2</I>)</A><DD>
This command searches the text for a range of characters tagged
with <I>tagName</I> where the first character of the range is
before the character at <I>index1</I> and no earlier than
@ -1167,14 +1296,14 @@ If no matching range is found then the return value is an
empty string.
If <I>index2</I> is not given then it defaults to the beginning of the text.
<P>
<DT><A NAME="M142">(<I>widget-name</I><B>'tag 'raise </B><I>tagName </I>)</A><DD>
<DT><A NAME="M143">(<I>widget-name</I><B>'tag 'raise </B><I>tagName </I> <I>aboveThis</I>)</A><DD>
<DT><A NAME="M154">(<I>widget-name</I><B>'tag 'raise </B><I>tagName </I>)</A><DD>
<DT><A NAME="M155">(<I>widget-name</I><B>'tag 'raise </B><I>tagName </I> <I>aboveThis</I>)</A><DD>
Changes the priority of tag <I>tagName</I> so that it is just higher
in priority than the tag whose name is <I>aboveThis</I>.
If <I>aboveThis</I> is omitted, then <I>tagName</I>'s priority
is changed to make it highest priority of all tags.
<P>
<DT><A NAME="M144">(<I>widget-name </I><B>'tag 'ranges </B><I>tagName</I>)</A><DD>
<DT><A NAME="M156">(<I>widget-name </I><B>'tag 'ranges </B><I>tagName</I>)</A><DD>
Returns a list describing all of the ranges of text that have been
tagged with <I>tagName</I>.
The first two elements of the list describe the first tagged range
@ -1187,7 +1316,7 @@ range.
If there are no characters tagged with <I>tag</I> then an
empty list is returned.
<P>
<DT><A NAME="M145">(<I>widget-name </I><B>'tag 'remove </B><I>tagName index1 </I>?<I>index2 index1 index2 ...</I>?)</A><DD>
<DT><A NAME="M157">(<I>widget-name </I><B>'tag 'remove </B><I>tagName index1 </I>?<I>index2 index1 index2 ...</I>?)</A><DD>
Remove the tag <I>tagName</I> from all of the characters starting
at <I>index1</I> and ending just before
<I>index2</I> (the character at <I>index2</I> isn't affected).
@ -1201,7 +1330,7 @@ to <I>index1</I>) then the procedure has no effect.
This procedure returns an empty list.
<P>
</DL>
<DT><A NAME="M146">(<I>widget-name '</I><B>window </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
<DT><A NAME="M158">(<I>widget-name '</I><B>window </B><I>option </I>?<I>arg arg ...</I>?)</A><DD>
This procedure is used to manipulate embedded windows.
The behavior of the procedure depends on the <I>option</I> argument
that follows the <B>tag</B> argument.
@ -1209,13 +1338,13 @@ The following forms of the procedure are currently supported:
<P>
<P>
<DL>
<DT><A NAME="M147">(<I>widget-name '</I><B>window 'cget</B> <I>index option</I>)</A><DD>
<DT><A NAME="M159">(<I>widget-name '</I><B>window 'cget</B> <I>index option</I>)</A><DD>
Returns the value of a configuration option for an embedded window.
<I>Index</I> identifies the embedded window, and <I>option</I>
specifies a particular configuration option, which must be one of
the ones listed in the section EMBEDDED WINDOWS.
<P>
<DT><A NAME="M148">(<I>widget-name '</I><B>window 'configure </B><I>index</I> ?<I>option value ...</I>?)</A><DD>
<DT><A NAME="M160">(<I>widget-name '</I><B>window 'configure </B><I>index</I> ?<I>option value ...</I>?)</A><DD>
Query or modify the configuration options for an embedded window.
If no <I>option</I> is specified, returns a list describing all of
the available options for the embedded window at <I>index</I>
@ -1230,7 +1359,7 @@ this case the procedure returns an empty list.
See EMBEDDED WINDOWS for information on the options that
are supported.
<P>
<DT><A NAME="M149">(<I>widget-name '</I><B>window 'create </B><I>index</I> ?<I>option value ...</I>?)</A><DD>
<DT><A NAME="M161">(<I>widget-name '</I><B>window 'create </B><I>index</I> ?<I>option value ...</I>?)</A><DD>
This procedure creates a new window annotation, which will appear
in the text at the position given by <I>index</I>.
Any number of <I>option-value</I> pairs may be specified to
@ -1239,19 +1368,19 @@ See EMBEDDED WINDOWS for information on the options that
are supported.
Returns an empty list.
<P>
<DT><A NAME="M150">(<I>widget-name '</I><B>window 'names</B>)</A><DD>
<DT><A NAME="M162">(<I>widget-name '</I><B>window 'names</B>)</A><DD>
Returns a list whose elements are the names of all windows currently
embedded in <I>window</I>.
<P>
</DL>
<DT><A NAME="M151">(<I>widget-name '</I><B>xview </B><I>option args</I>)</A><DD>
<DT><A NAME="M163">(<I>widget-name '</I><B>xview </B><I>option args</I>)</A><DD>
This procedure is used to query and change the horizontal position of the
text in the widget's window. It can take any of the following
forms:
<P>
<P>
<DL>
<DT><A NAME="M152">(<I>widget-name '</I><B>xview</B>)</A><DD>
<DT><A NAME="M164">(<I>widget-name '</I><B>xview</B>)</A><DD>
Returns a list containing two elements.
Each element is a real fraction between 0 and 1; together they describe
the portion of the document's horizontal span that is visible in
@ -1267,12 +1396,12 @@ much wider than the window.
These are the same values passed to scrollbars via the <B>:xscrollprocedure</B>
option.
<P>
<DT><A NAME="M153">(<I>widget-name '</I><B>xview 'moveto</B><I> fraction</I>)</A><DD>
<DT><A NAME="M165">(<I>widget-name '</I><B>xview 'moveto</B><I> fraction</I>)</A><DD>
Adjusts the view in the window so that <I>fraction</I> of the horizontal
span of the text is off-screen to the left.
<I>Fraction</I> is a fraction between 0 and 1.
<P>
<DT><A NAME="M154">(<I>widget-name '</I><B>xview 'scroll </B><I>number what</I>)</A><DD>
<DT><A NAME="M166">(<I>widget-name '</I><B>xview 'scroll </B><I>number what</I>)</A><DD>
This procedure shifts the view in the window left or right according to
<I>number</I> and <I>what</I>.
<I>Number</I> must be an integer.
@ -1286,14 +1415,14 @@ become visible; if it is positive then characters farther to the right
become visible.
<P>
</DL>
<DT><A NAME="M155">(<I>widget-name '</I><B>yview </B><I>?args</I>?)</A><DD>
<DT><A NAME="M167">(<I>widget-name '</I><B>yview </B><I>?args</I>?)</A><DD>
This procedure is used to query and change the vertical position of the
text in the widget's window.
It can take any of the following forms:
<P>
<P>
<DL>
<DT><A NAME="M156">(<I>widget-name '</I><B>yview</B>)</A><DD>
<DT><A NAME="M168">(<I>widget-name '</I><B>yview</B>)</A><DD>
Returns a list containing two elements, both of which are real fractions
between 0 and 1.
The first element gives the position of the first character in the
@ -1305,14 +1434,14 @@ relative to the text as a whole.
These are the same values passed to scrollbars via the <B>:yscrollprocedure</B>
option.
<P>
<DT><A NAME="M157">(<I>widget-name '</I><B>yview 'moveto</B><I> fraction</I>)</A><DD>
<DT><A NAME="M169">(<I>widget-name '</I><B>yview 'moveto</B><I> fraction</I>)</A><DD>
Adjusts the view in the window so that the character given by <I>fraction</I>
appears on the top line of the window.
<I>Fraction</I> is a fraction between 0 and 1; 0 indicates the first
character in the text, 0.33 indicates the character one-third the
way through the text, and so on.
<P>
<DT><A NAME="M158">(<I>widget-name '</I><B>yview 'scroll </B><I>number what</I>)</A><DD>
<DT><A NAME="M170">(<I>widget-name '</I><B>yview 'scroll </B><I>number what</I>)</A><DD>
This procedure adjust the view in the window up or down according to
<I>number</I> and <I>what</I>.
<I>Number</I> must be an integer.
@ -1324,8 +1453,8 @@ If <I>number</I> is negative then earlier positions in the text
become visible; if it is positive then later positions in the text
become visible.
<P>
<DT><A NAME="M159">(<I>widget-name </I><B>yview </B> <I>index</I>)</A><DD>
<DT><A NAME="M160">(<I>widget-name </I><B>yview </B><B>:pickplace</B> <I>index</I>)</A><DD>
<DT><A NAME="M171">(<I>widget-name </I><B>yview </B> <I>index</I>)</A><DD>
<DT><A NAME="M172">(<I>widget-name </I><B>yview </B><B>:pickplace</B> <I>index</I>)</A><DD>
Changes the view in the widget's window to make <I>index</I> visible.
If the <B>:pickplace</B> option isn't specified then <I>index</I> will
appear at the top of the window.
@ -1351,7 +1480,7 @@ The <B>:pickplace</B> option has been obsoleted by the <B>see</B> widget
procedure (<B>see</B> handles both x- and y-motion to make a location
visible, whereas <B>:pickplace</B> only handles motion in y).
</UL>
<DT><A NAME="M161">(<I>widget-name '</I><B>yview </B><I>number</I>)</A><DD>
<DT><A NAME="M173">(<I>widget-name '</I><B>yview </B><I>number</I>)</A><DD>
This procedure makes the first character on the line after
the one given by <I>number</I> visible at the top of the window.
<I>Number</I> must be an integer.
@ -1359,7 +1488,7 @@ This procedure used to be used for scrolling, but now it is obsolete.
<P>
</DL>
</DL>
<H3><A NAME="M162">BINDINGS</A></H3>
<H3><A NAME="M174">BINDINGS</A></H3>
Tk automatically creates class bindings for texts that give them
the following default behavior.
In the descriptions below, ``word'' refers to a contiguous group
@ -1508,7 +1637,7 @@ take place.
The behavior of texts can be changed by defining new bindings for
individual widgets or by redefining the class bindings.
<H3><A NAME="M163">PERFORMANCE ISSUES</A></H3>
<H3><A NAME="M175">PERFORMANCE ISSUES</A></H3>
Text widgets should run efficiently under a variety
of conditions. The text widget uses about 2-3 bytes of
main memory for each byte of text, so texts containing a megabyte

7
INSTALL
View File

@ -169,11 +169,8 @@ To install stk in the definitive place, type
$ make install
Intalling STk and Tk manual pages is done with
$ make install.man
Intalling STk and Tk libraries is done with
Intalling STk and Tk libraries (useless if you don't plan to write some C code)
is done with.
$ make install.lib

4
Lib/Makefile
View File

@ -3,7 +3,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: ???
# Last file update: 28-Oct-1997 21:23
# Last file update: 30-Apr-1998 16:28
include ../config.make
@ -29,7 +29,7 @@ install:
chmod 0644 $(STK_IMAGES)/*
$(CP) Match/*.scm $(STK_STK_MATCH)
chmod 0644 $(STK_STK_MATCH)/*
chmod 0755 $(SITE_SCHEME) $(STK_IMAGES) $(STK_STK) $(STK_STK_MATCH)
install.libs:
clean:

24
Lib/bigloo.stk
View File

@ -11,11 +11,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: bigloo.stk 1.2 Wed, 14 Jan 1998 14:58:05 +0100 eg $
;;;; $Id: bigloo.stk 1.3 Thu, 30 Apr 1998 14:16:40 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 28-Oct-1997 11:09
;;;; Last file update: 14-Jan-1998 11:05
;;;; Last file update: 30-Apr-1998 15:26
;;;
@ -65,18 +65,18 @@
x))
x)))
`(define-module ,name
,@(map (lambda (clause)
(case (car clause)
((export) (export-directive (cdr clause)))
((import) (import-directive (cdr clause)))
((use) '())
(else (error "module" "Unknown clause" (cons name clause)))))
clauses)
(define error bigloo:error)
`(begin
(define-module ,name
,@(map (lambda (clause)
(case (car clause)
((export) (export-directive (cdr clause)))
((import) (import-directive (cdr clause)))
((use) '())
(else (error "module" "Unknown clause" (cons name clause)))))
clauses)
(define error bigloo:error))
(select-module ,name)))
;;;
;;; Error
;;;

4
Lib/init.stk
View File

@ -11,11 +11,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: init.stk 1.13 Fri, 10 Apr 1998 09:13:18 +0200 eg $
;;;; $Id: init.stk 1.14 Mon, 20 Apr 1998 20:15:01 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: ??-Sep-1993 ??:??
;;;; Last file update: 8-Apr-1998 11:41
;;;; Last file update: 20-Apr-1998 19:31
;;;;
;;;==============================================================================

6
Lib/match.stk
View File

@ -1,7 +1,7 @@
;;;;
;;;; m a t c h . s t k -- The bigloo match-case and match-lambda
;;;;
;;;; Copyright © 1997 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright © 1997-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;; Permission to use, copy, and/or distribute this software and its
;;;; documentation for any purpose and without fee is hereby granted, provided
@ -13,7 +13,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 28-Oct-1997 20:47
;;;; Last file update: 28-Oct-1997 21:16
;;;; Last file update: 30-Apr-1998 15:27
;;;;
;;;; This file implements code for loading the MATCH-CASE and MATCH-LAMBDA
@ -33,7 +33,7 @@
(load "Match/compiler.scm")
(load "Match/mexpand.scm")
(with-module Scheme
(with-module STk
(import __match_expand)
(define-macro (match-lambda . clauses)

7
Lib/menu.stk
View File

@ -15,7 +15,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35
;;;; Last file update: 8-Apr-1998 11:40
;;;; Last file update: 27-Apr-1998 12:34
;;;;
(select-module Tk)
@ -734,7 +734,7 @@
(define (Tk:menu-find w char)
(let ((char (string-lower char))
(window-list (winfo 'child w)))
(DEBUG " Tk:menu-find (à debugger) ~S ~S" w char)
; FIXME: (DEBUG " Tk:menu-find (à debugger) ~S ~S" w char)
(call/cc
(lambda (exit)
(for-each (lambda (child)
@ -905,8 +905,7 @@
;; s - String to look for.
(define (Tk:menu-find-name menu s)
(DEBUG "Tk:menu-find-name manque des test pour les chaines speciales ~S " s)
; FIXME: Tk:menu-find-name manque des test pour les chaines speciales
(let ((last (menu 'index 'last))
(label #f))
(if (equal? last "none")

2
Lib/sterm.stk
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: sterm.stk 1.3 Tue, 03 Mar 1998 23:48:24 +0100 eg $
;;;; $Id: sterm.stk 1.3 Tue, 03 Mar 1998 22:48:24 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 2-Oct-1995 22:57

2
Lib/text.stk
View File

@ -14,7 +14,7 @@
;;;; This software is a derivative work of other copyrighted softwares; the
;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
;;;;
;;;; $Id: text.stk 1.3 Sun, 22 Mar 1998 17:16:09 +0100 eg $
;;;; $Id: text.stk 1.3 Sun, 22 Mar 1998 16:16:09 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35

2
Lib/tk-init.stk
View File

@ -17,7 +17,7 @@
;;;; This software is a derivative work of other copyrighted softwares; the
;;;; copyright notices of these softwares are placed in the file COPYRIGHTS
;;;;
;;;; $Id: tk-init.stk 1.11 Fri, 10 Apr 1998 09:13:18 +0200 eg $
;;;; $Id: tk-init.stk 1.11 Fri, 10 Apr 1998 07:13:18 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-1993 12:35

2
Lib/tk-unix.stk
View File

@ -12,7 +12,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: tk-unix.stk 1.1 Fri, 10 Apr 1998 09:13:18 +0200 eg $
;;;; $Id: tk-unix.stk 1.1 Fri, 10 Apr 1998 07:13:18 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 1-Feb-1998 19:03

2
Lib/trace.stk
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: trace.stk 1.2 Sun, 18 Jan 1998 20:17:48 +0100 eg $
;;;; $Id: trace.stk 1.2 Sun, 18 Jan 1998 19:17:48 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 26-Apr-1997 16:02

4
Lib/www-browser.stklos
View File

@ -13,7 +13,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 21-Oct-1996 14:02
;;;; Last file update: 2-Mar-1998 10:47
;;;; Last file update: 16-Apr-1998 11:45
;;;;
(require "Tk-classes")
@ -77,7 +77,7 @@
(f1 (make <Frame> :parent parent))
(lab (make <Label> :parent f1 :anchor "w"))
(gauge (make <Gauge> :parent f1 :width 200 :height 10
:background "Dark Gray" :foreground "IndianRed4")))
:background "gray40" :foreground "IndianRed4")))
;;
;; Pack commponents
(pack f loc :expand #f :fill "x")

3
Lib/www-img.stk
View File

@ -16,13 +16,12 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 6-Oct-1996 17:12
;;;; Last file update: 28-Feb-1998 11:33
;;;; Last file update: 11-Apr-1998 11:50
;;;;
(require "image")
(select-module WWW)
;=============================================================================
;
; U t i l i t i e s

2
Lib/www.stk
View File

@ -16,7 +16,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 4-Oct-1996 16:14
;;;; Last file update: 28-Feb-1998 13:53
;;;; Last file update: 11-Apr-1998 11:51
;;
;; This module needs a library of protocol getters & file viewers to be

21
Makefile.in
View File

@ -14,7 +14,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: ??-Sep-1993 ??:??
# Last file update: 10-Apr-1998 10:09
# Last file update: 27-Apr-1998 22:33
#
@ -31,10 +31,12 @@ prefix = @prefix@
stkdir = $(prefix)/lib/stk
libdir = $(stkdir)/$(VERSION)
execdir = $(libdir)/$(MACHINE)
confdir = $(execdir)/Config
ardir = $(execdir)/Libs
mandir = $(libdir)/man
incdir = $(libdir)/include
bindir = $(prefix)/bin
etcdir = $(stkdir)/etc
all: start tcl tk mp stack src snow stklos ext stop
@ -49,10 +51,11 @@ start:
@echo "stkdir = $(stkdir)" >> config.make
@echo "libdir = $(libdir)" >> config.make
@echo "execdir = $(execdir)" >> config.make
@echo "confdir = $(confdir)" >> config.make
@echo "ardir = $(ardir)" >> config.make
@echo "incdir = $(incdir)" >> config.make
@echo "bindir = $(bindir)" >> config.make
@echo "mandir = $(mandir)" >> config.make
@echo "etcdir = $(etcdir)" >> config.make
@echo "VERS-OPT = -DSTK_VERSION=\\\"$(VERSION)\\\"">> config.make
@echo "MACHINE = -DMACHINE=\\\"$(MACHINE)\\\"" >> config.make
@echo "CC = @CC@" >> config.make
@ -118,12 +121,13 @@ install: clean-before
(cd Extensions; $(MAKE) install)
(cd Demos; $(MAKE) install)
(cd Help; $(MAKE) install)
(cd Doc; $(MAKE) install)
@echo ""
@echo "Installation completed."
install.libs:
-if [ ! -d $(etcdir) ] ; then mkdir -p $(etcdir); fi
$(CP) config.make $(etcdir)
-if [ ! -d $(confdir) ] ; then mkdir -p $(confdir); fi
$(CP) config.make $(confdir)
-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
/bin/rm -f $(stkdir)/include
(cd $(stkdir) ; ln -s $(VERSION)/include ./include)
@ -132,6 +136,7 @@ install.libs:
(cd Mp; $(MAKE) install.libs)
(cd Src; $(MAKE) install.stk.libs)
(cd Snow; $(MAKE) install.snow.libs)
chmod 0755 $(confdir) $(ardir) $(confdir)/* $(ardir)/*
@echo ""
@echo "Full installation completed."
@ -195,11 +200,11 @@ clean:
(cd Extensions; $(MAKE) clean)
(cd Help; $(MAKE) clean)
(cd Doc; $(MAKE) clean)
/bin/rm -f core *~ Makefile config.*
/bin/rm -f core *~ Makefile config.* Src/Makefile
checkin-n:
@(Bin/version-number > VERSION; cat VERSION; prcs checkin -n)
@(cat VERSION; prcs checkin -n)
checkin:
@(Bin/version-number > VERSION; cat VERSION; prcs checkin)
@(cat VERSION; prcs checkin)

10
Mp/Makefile
View File

@ -25,14 +25,14 @@ libfgmp.a:
install:
install.libs: install
-if [ ! -d $(execdir) ] ; then mkdir -p $(execdir); fi
-if [ ! -d $(ardir) ] ; then mkdir -p $(ardir); fi
-if [ -f libfgmp.a ] ; then \
$(CP) libfgmp.a $(execdir); \
$(RANLIB) $(execdir)/libfgmp.a; \
$(CP) libfgmp.a $(ardir); \
$(RANLIB) $(ardir)/libfgmp.a; \
fi
-if [ -f libgmp.a ] ; then \
$(CP) libgmp.a $(execdir); \
$(RANLIB) $(execdir)/libgmp.a; \
$(CP) libgmp.a $(ardir); \
$(RANLIB) $(ardir)/libgmp.a; \
fi
-if [ ! -d $(incdir) ] ; then mkdir -p $(incdir); fi
$(CP) gmp.h $(incdir)

4
README
View File

@ -1,4 +1,4 @@
<
This is the release 3.99 of STk
---------------------------------
@ -18,7 +18,7 @@ This release runs on majors Unix versions (Linux, Solaris, OSF, ...)
The previous version was also running on Microsoft Win32 (port of
current version is planned but has not be done yet).
Version 3.99.0 uses the Tk 8.0 package for the graphical part.
Version 3.99 uses the Tk 8.0 package for the graphical part.
DIFFERENCE PREVIOUS RELEASE

203
STk.prj
View File

@ -1,17 +1,18 @@
;; -*- Lisp -*-
(Created-By-Prcs-Version 1 2 1)
(Project-Description "The STk Scheme Interpreter")
(Project-Version STk 3.99.0 39)
(Parent-Version STk 3.99.0 38)
(Project-Version STk 3.99.1 22)
(Parent-Version STk 3.99.1 21)
(Version-Log "")
(New-Version-Log "")
(Checkin-Time "Fri, 10 Apr 1998 14:05:25 +0200")
(Checkin-Time "Thu, 30 Apr 1998 14:51:01 +0000")
(Checkin-Login eg)
(Populate-Ignore ("\\.o$"
"\\.a$"
"\\.so$"
"core$"
"config.log$"
"config.cache$"
"config.make$"
"config.status$"
"^Src/stk$"
@ -24,6 +25,7 @@
"/T.stk$"
"/T[0-9].stk"
"Web/"
"A_FAIRE"
; Not yet
"Doc/GDR/"
"Doc/STklos/"
@ -32,18 +34,18 @@
(Files
;; Top Level Files
(configure.in (STk/K/29_configure. 1.1 444))
(configure (STk/K/30_configure 1.1 755))
(VERSION (STk/K/31_VERSION 1.2 644))
(README (STk/K/32_README 1.2 644))
(Makefile.in (STk/K/33_Makefile.i 1.3 644))
(INSTALL (STk/K/35_INSTALL 1.2 644))
(ChangeLog (STk/K/36_ChangeLog 1.20 644))
(configure.in (STk/K/29_configure. 1.1.1.1 644))
(configure (STk/K/30_configure 1.1.1.1 755))
(VERSION (STk/K/31_VERSION 1.3 644))
(README (STk/K/32_README 1.3 644))
(Makefile.in (STk/K/33_Makefile.i 1.3.1.5 644))
(INSTALL (STk/K/35_INSTALL 1.3 644))
(ChangeLog (STk/K/36_ChangeLog 1.20.1.5 644))
(COPYRIGHTS (STk/K/37_COPYRIGHTS 1.1 644))
(COMPILING-HINTS (STk/K/38_COMPILING- 1.1 444))
(CHANGES (STk/K/39_CHANGES 1.2 644))
(CHANGES (STk/K/39_CHANGES 1.6 644))
(BINARY_DISTRIB (STk/K/40_BINARY_DIS 1.2 644))
;; Contributions Directory
(Contrib/%README (STk/K/41_%README 1.1 444))
(Contrib/Inspect/README (STk/K/42_README 1.1 444))
@ -116,14 +118,21 @@
;; Demonstations Directory
(Demos/%README (STk/d/b/4_%README 1.2 644))
(Demos/Html-Demos/envdraw-fr.html (STk/d/b/6_envdraw-fr 1.1 644))
(Demos/Html-Demos/envdraw-en.html (STk/d/b/7_envdraw-en 1.1 644))
(Demos/Html-Demos/compo-en.html (STk/e/b/12_compo-en.h 1.1 644))
(Demos/Html-Demos/intro-en.html (STk/e/b/13_intro-en.h 1.1 644))
(Demos/Html-Demos/simple-en.html (STk/e/b/14_simple-en. 1.1 644))
(Demos/Html-Demos/amib-en.html (STk/e/b/15_amib-en.ht 1.1 644))
(Demos/Html-Demos/applet-en.html (STk/e/b/16_applet-en. 1.1 644))
(Demos/Html-Demos/main-en.html (STk/e/b/17_main-en.ht 1.1 644))
(Demos/Html-Demos/S-scape-en.html (STk/e/b/18_S-scape-en 1.1 644))
(Demos/Html-Demos/envdraw-fr.html (STk/d/b/6_envdraw-fr 1.1.1.1 644))
(Demos/Html-Demos/envdraw-en.html (STk/d/b/7_envdraw-en 1.1.1.1 644))
(Demos/Html-Demos/stklos-widgets.stklos (../stklos-widgets.stklos) :symlink)
(Demos/Html-Demos/compo-fr.html (STk/d/b/8_compo-fr.h 1.1 644))
(Demos/Html-Demos/amib.stklos (../amib.stklos) :symlink)
(Demos/Html-Demos/amib-fr.html (STk/d/b/9_amib-fr.ht 1.1 644))
(Demos/Html-Demos/amib-fr.html (STk/d/b/9_amib-fr.ht 1.1.1.1 644))
(Demos/Html-Demos/puzzle.stk (STk/d/b/10_puzzle.stk 1.1 644))
(Demos/Html-Demos/S-scape-fr.html (STk/d/b/11_S-scape-fr 1.1 644))
(Demos/Html-Demos/S-scape-fr.html (STk/d/b/11_S-scape-fr 1.1.1.1 644))
(Demos/Html-Demos/Lentry.stklos (STk/d/b/12_Lentry.stk 1.1 644))
(Demos/Html-Demos/interface.stk (STk/d/b/13_interface. 1.1 644))
(Demos/Html-Demos/simple-fr.html (STk/d/b/14_simple-fr. 1.1 644))
@ -169,7 +178,7 @@
(Demos/Html-Demos/animate.stk (STk/e/b/2_animate.st 1.1 644))
(Demos/Html-Demos/main-fr.html (STk/e/b/3_main-fr.ht 1.1 644))
(Demos/Html-Demos/main.html (STk/e/b/4_main.html 1.1 644))
(Demos/Makefile (STk/M/0_Makefile 1.1 444))
(Demos/Makefile (STk/M/0_Makefile 1.2 755))
(Demos/README.html (STk/M/1_README.htm 1.3 644))
(Demos/STk-normal.gif (../Lib/Images/STk-normal.gif) :symlink)
(Demos/Widget/Warrow.stklos (STk/M/2_Warrow.stk 1.1 644))
@ -269,7 +278,7 @@
(Doc/LaTeX-packages/a4wide.sty (STk/N/31_a4wide.sty 1.1 444))
(Doc/LaTeX-packages/moreverb.sty (STk/N/32_moreverb.s 1.1 444))
(Doc/Makefile (STk/N/33_Makefile 1.1 444))
(Doc/Manual/Makefile (STk/N/34_Makefile 1.1 644))
(Doc/Manual/Makefile (STk/N/34_Makefile 1.2 644))
(Doc/Manual/STk-man.macros (STk/N/35_STk-man.ma 1.1 444))
(Doc/Manual/after.n (STk/N/36_after.n 1.1 444))
(Doc/Manual/bell.n (STk/N/37_bell.n 1.1 444))
@ -293,13 +302,13 @@
(Doc/Manual/image.n (STk/O/4_image.n 1.2 644))
(Doc/Manual/jpeg.n (STk/O/5_jpeg.n 1.2 644))
(Doc/Manual/label.n (STk/O/6_label.n 1.2 644))
(Doc/Manual/links.stk (STk/O/7_links.stk 1.1 644))
; (Doc/Manual/links.stk (STk/O/7_links.stk 1.1 644))
(Doc/Manual/listbox.n (STk/O/8_listbox.n 1.1 444))
(Doc/Manual/listener.n (STk/O/9_listener.n 1.1 644))
(Doc/Manual/lower.n (STk/O/10_lower.n 1.1 444))
(Doc/Manual/make-dialog.n (STk/O/11_make-dialo 1.1 444))
(Doc/Manual/make-image.n (STk/c/b/15_make-image 1.1 644))
(Doc/Manual/make-link.stk (STk/O/12_make-link. 1.1 644))
; (Doc/Manual/make-link.stk (STk/O/12_make-link. 1.1 644))
(Doc/Manual/menu.n (STk/O/13_menu.n 1.2 644))
(Doc/Manual/menubutton.n (STk/O/14_menubutton 1.3 644))
(Doc/Manual/message.n (STk/O/15_message.n 1.1 444))
@ -315,13 +324,13 @@
(Doc/Manual/posix.n (STk/O/25_posix.n 1.1 444))
(Doc/Manual/radiobutton.n (STk/O/26_radiobutto 1.1 644))
(Doc/Manual/raise.n (STk/O/27_raise.n 1.1 444))
(Doc/Manual/report-error.n (STk/O/28_report-err 1.1 644))
(Doc/Manual/report-error.n (STk/O/28_report-err 1.2 644))
(Doc/Manual/scale.n (STk/O/29_scale.n 1.1 444))
(Doc/Manual/scrollbar.n (STk/O/30_scrollbar. 1.1 444))
(Doc/Manual/selection.n (STk/O/31_selection. 1.1 444))
(Doc/Manual/send.n (STk/O/32_send.n 1.1 444))
(Doc/Manual/stk.1 (STk/O/33_stk.1 1.1 444))
(Doc/Manual/stk.ps (STk/O/34_stk.ps 1.5 644))
(Doc/Manual/stk.1 (STk/O/33_stk.1 1.2 644))
(Doc/Manual/stk.ps (STk/O/34_stk.ps 1.6 644))
(Doc/Manual/stk.txt (STk/O/35_stk.txt 1.1 444))
(Doc/Manual/text.n (STk/O/36_text.n 1.2 644))
(Doc/Manual/tk.n (STk/O/37_tk.n 1.1 444))
@ -331,17 +340,22 @@
(Doc/Manual/update.n (STk/O/41_update.n 1.1 444))
(Doc/Manual/winfo.n (STk/O/42_winfo.n 1.1 444))
(Doc/Manual/wm.n (STk/O/43_wm.n 1.1 644))
(Doc/Manual/free-image.n (make-image.n) :symlink)
(Doc/Manual/change-image.n (make-image.n) :symlink)
(Doc/Manual/find-image.n (make-image.n) :symlink)
(Doc/Manual/repl-display-result.n (repl-display-prompt.n) :symlink)
(Doc/Manual/repl-display-prompt.n (STk/e/b/19_repl-displ 1.1 644))
(Doc/Reference/Appendix-A.tex (STk/O/44_Appendix-A 1.1 444))
(Doc/Reference/Appendix-B.tex (STk/O/45_Appendix-B 1.1 444))
(Doc/Reference/Appendix-C.tex (STk/O/46_Appendix-C 1.1 444))
(Doc/Reference/Appendix-B.tex (STk/O/45_Appendix-B 1.2 644))
(Doc/Reference/Appendix-C.tex (STk/O/46_Appendix-C 1.2 644))
(Doc/Reference/Appendix-D.tex (STk/O/47_Appendix-D 1.2 644))
(Doc/Reference/Appendix-E.tex (STk/O/48_Appendix-E 1.2 444))
(Doc/Reference/Appendix-E.tex (STk/O/48_Appendix-E 1.3 644))
(Doc/Reference/Appendix-F.tex (STk/e/b/5_Appendix-F 1.1 644))
(Doc/Reference/Detail.ps (STk/O/49_Detail.ps 1.1 444))
(Doc/Reference/Inspector.ps (STk/O/50_Inspector. 1.1 444))
(Doc/Reference/Makefile (STk/O/51_Makefile 1.2 644))
(Doc/Reference/Reference1.tex (STk/P/0_Reference1 1.1 644))
(Doc/Reference/Reference2.tex (STk/P/1_Reference2 1.2 644))
(Doc/Reference/Reference1.tex (STk/P/0_Reference1 1.2 644))
(Doc/Reference/Reference2.tex (STk/P/1_Reference2 1.3 644))
(Doc/Reference/Reference3.tex (STk/P/2_Reference3 1.2 644))
(Doc/Reference/View.ps (STk/P/3_View.ps 1.1 444))
(Doc/Reference/bibliography.bib (../bibliography.bib) :symlink)
@ -350,9 +364,9 @@
(Doc/Reference/hierarchy.eps (STk/P/6_hierarchy. 1.1 444))
(Doc/Reference/hierarchy.fig (STk/P/7_hierarchy. 1.1 444))
(Doc/Reference/index.stk (STk/P/8_index.stk 1.1 444))
(Doc/Reference/manual.dvi (STk/P/9_manual.dvi 1.6 644) :no-keywords)
(Doc/Reference/manual.ps (STk/P/10_manual.ps 1.6 644) :no-keywords)
(Doc/Reference/manual.tex (STk/P/11_manual.tex 1.2 644))
(Doc/Reference/manual.dvi (STk/P/9_manual.dvi 1.7 644) :no-keywords)
(Doc/Reference/manual.ps (STk/P/10_manual.ps 1.7 644) :no-keywords)
(Doc/Reference/manual.tex (STk/P/11_manual.tex 1.3 644))
(Doc/STklos+Tk/Basic-Fig-1.ps (STk/P/12_Basic-Fig- 1.1 444))
(Doc/STklos+Tk/Chap1.tex (STk/P/13_Chap1.tex 1.1 444))
(Doc/STklos+Tk/Chap2.tex (STk/P/14_Chap2.tex 1.1 440))
@ -379,7 +393,7 @@
;; Modules Extensions Directory
(Extensions/%README (STk/P/32_%README 1.1 444))
(Extensions/Makefile.in (STk/P/33_Makefile.i 1.1 644))
(Extensions/Makefile.in (STk/P/33_Makefile.i 1.2 644))
(Extensions/Makefile.sample (STk/P/34_Makefile.s 1.1 444))
(Extensions/configure (STk/P/35_configure 1.1 755))
(Extensions/configure.in (STk/P/36_configure. 1.1 444))
@ -396,8 +410,8 @@
(Extensions/when.c (STk/P/47_when.c 1.1 444))
;; Help Files (HTML) Directory
(Help/BlueIndex.html (STk/P/48_BlueIndex. 1.1 644))
(Help/GreenIndex.html (STk/P/49_GreenIndex 1.1 644))
(Help/BlueIndex.html (STk/P/48_BlueIndex. 1.2 644))
(Help/GreenIndex.html (STk/P/49_GreenIndex 1.2 644))
(Help/Img/BlueBall.gif (STk/P/50_BlueBall.g 1.1 444) :no-keywords)
(Help/Img/GreenBall.gif (STk/P/51_GreenBall. 1.1 444) :no-keywords)
(Help/Img/ManPageBlue.gif (STk/Q/0_ManPageBlu 1.1 444) :no-keywords)
@ -418,23 +432,22 @@
(Help/Img/line-red.gif (STk/Q/15_line-red.g 1.1 444) :no-keywords)
(Help/Img/note.gif (STk/Q/16_note.gif 1.1 444) :no-keywords)
(Help/Img/smile.sad.gif (STk/Q/17_smile.sad. 1.1 444) :no-keywords)
(Help/Makefile (STk/Q/18_Makefile 1.1 644))
(Help/STk-hlp.html (STk/Q/19_STk-hlp.ht 1.1 644))
(Help/YellowIndex.html (STk/Q/20_YellowInde 1.1 644))
(Help/Makefile (STk/Q/18_Makefile 1.2 644))
(Help/STk-hlp.html (STk/Q/19_STk-hlp.ht 1.2 644))
(Help/YellowIndex.html (STk/Q/20_YellowInde 1.2 644))
(Help/after.n.html (STk/Q/21_after.n.ht 1.1 644))
(Help/amib-abt.html (STk/Q/22_amib-abt.h 1.1 444))
(Help/amib-hlp.html (STk/Q/23_amib-hlp.h 1.2 644))
(Help/bell.n.html (STk/Q/24_bell.n.htm 1.1 644))
(Help/bind.n.html (STk/Q/25_bind.n.htm 1.1 644))
(Help/bindtags.n.html (STk/Q/26_bindtags.n 1.1 644))
(Help/bitmap.n.html (STk/Q/27_bitmap.n.h 1.1 644))
(Help/button.n.html (STk/Q/28_button.n.h 1.1 644))
(Help/bitmap.n.html (STk/Q/27_bitmap.n.h 1.2 644))
(Help/button.n.html (STk/Q/28_button.n.h 1.2 644))
(Help/canvas.n.html (STk/Q/29_canvas.n.h 1.1 644))
(Help/checkbutton.n.html (STk/Q/30_checkbutto 1.1 644))
(Help/checkbutton.n.html (STk/Q/30_checkbutto 1.2 644))
(Help/clipboard.n.html (STk/Q/31_clipboard. 1.1 644))
(Help/create-image.n.html (STk/Q/32_create-ima 1.1 644))
(Help/destroy.n.html (STk/Q/33_destroy.n. 1.1 644))
(Help/entry.n.html (STk/Q/34_entry.n.ht 1.1 644))
(Help/entry.n.html (STk/Q/34_entry.n.ht 1.2 644))
(Help/error-hlp.html (STk/Q/35_error-hlp. 1.1 444))
(Help/event.n.html (STk/Q/36_event.n.ht 1.1 644))
(Help/fbox-hlp.html (STk/Q/37_fbox-hlp.h 1.1 444))
@ -445,38 +458,38 @@
(Help/ftp.n.html (STk/Q/42_ftp.n.html 1.1 644))
(Help/grab.n.html (STk/Q/43_grab.n.htm 1.1 644))
(Help/grid.n.html (STk/Q/44_grid.n.htm 1.1 644))
(Help/image.n.html (STk/Q/45_image.n.ht 1.1 644))
(Help/image.n.html (STk/Q/45_image.n.ht 1.2 644))
(Help/inspect-abt.html (STk/Q/46_inspect-ab 1.1 444))
(Help/inspect-hlp.html (STk/Q/47_inspect-hl 1.1 444))
(Help/jpeg.n.html (STk/Q/48_jpeg.n.htm 1.1 644))
(Help/label.n.html (STk/Q/49_label.n.ht 1.1 644))
(Help/jpeg.n.html (STk/Q/48_jpeg.n.htm 1.2 644))
(Help/label.n.html (STk/Q/49_label.n.ht 1.2 644))
(Help/listbox.n.html (STk/Q/50_listbox.n. 1.1 644))
(Help/listener.n.html (STk/Q/51_listener.n 1.1 644))
(Help/lower.n.html (STk/R/0_lower.n.ht 1.1 644))
(Help/make-dialog.n.html (STk/R/1_make-dialo 1.1 644))
(Help/make-link.stk (STk/R/2_make-link. 1.1 644))
(Help/menu.n.html (STk/R/3_menu.n.htm 1.1 644))
(Help/menubutton.n.html (STk/R/4_menubutton 1.1 644))
; (Help/make-link.stk (STk/R/2_make-link. 1.1 644))
(Help/menu.n.html (STk/R/3_menu.n.htm 1.2 644))
(Help/menubutton.n.html (STk/R/4_menubutton 1.2 644))
(Help/message.n.html (STk/R/5_message.n. 1.1 644))
(Help/option-menu.n.html (STk/R/6_option-men 1.1 644))
(Help/option.n.html (STk/R/7_option.n.h 1.1 644))
(Help/options.n.html (STk/R/8_options.n. 1.1 644))
(Help/pack.n.html (STk/R/9_pack.n.htm 1.1 644))
(Help/palette.n.html (STk/R/10_palette.n. 1.1 644))
(Help/photo.n.html (STk/R/11_photo.n.ht 1.1 644))
(Help/pixmap.n.html (STk/R/12_pixmap.n.h 1.1 644))
(Help/photo.n.html (STk/R/11_photo.n.ht 1.2 644))
(Help/pixmap.n.html (STk/R/12_pixmap.n.h 1.2 644))
(Help/place.n.html (STk/R/13_place.n.ht 1.1 644))
(Help/popup.n.html (STk/R/14_popup.n.ht 1.1 644))
(Help/posix.n.html (STk/R/15_posix.n.ht 1.1 644))
(Help/radiobutton.n.html (STk/R/16_radiobutto 1.1 644))
(Help/raise.n.html (STk/R/17_raise.n.ht 1.1 644))
(Help/report-error.n.html (STk/R/18_report-err 1.1 644))
(Help/report-error.n.html (STk/R/18_report-err 1.2 644))
(Help/scale.n.html (STk/R/19_scale.n.ht 1.1 644))
(Help/scrollbar.n.html (STk/R/20_scrollbar. 1.1 644))
(Help/selection.n.html (STk/R/21_selection. 1.1 644))
(Help/send.n.html (STk/R/22_send.n.htm 1.1 644))
(Help/stk.1.html (STk/R/23_stk.1.html 1.1 644))
(Help/text.n.html (STk/R/24_text.n.htm 1.1 644))
(Help/stk.1.html (STk/R/23_stk.1.html 1.2 644))
(Help/text.n.html (STk/R/24_text.n.htm 1.2 644))
(Help/tk.n.html (STk/R/25_tk.n.html 1.1 644))
(Help/tkvars.n.html (STk/R/26_tkvars.n.h 1.1 644))
(Help/tkwait.n.html (STk/R/27_tkwait.n.h 1.1 644))
@ -484,7 +497,13 @@
(Help/update.n.html (STk/R/29_update.n.h 1.1 644))
(Help/winfo.n.html (STk/R/30_winfo.n.ht 1.1 644))
(Help/wm.n.html (STk/R/31_wm.n.html 1.1 644))
(Help/repl-display-result.n.html (STk/e/b/22_repl-displ 1.1 644))
(Help/free-image.n.html (STk/e/b/23_free-image 1.1 644))
(Help/find-image.n.html (STk/e/b/24_find-image 1.1 644))
(Help/change-image.n.html (STk/e/b/25_change-ima 1.1 644))
(Help/repl-display-prompt.n.html (STk/e/b/26_repl-displ 1.1 644))
(Help/make-image.n.html (STk/e/b/27_make-image 1.1 644))
;; Library files
(Lib/Images/Cancel.gif (STk/R/32_Cancel.gif 1.1 444) :no-keywords)
(Lib/Images/Help.gif (STk/R/33_Help.gif 1.1 444) :no-keywords)
@ -534,7 +553,7 @@
(Lib/Images/question (STk/c/b/17_question 1.1 444))
(Lib/Images/info (STk/c/b/18_info 1.1 444))
(Lib/Images/error (STk/c/b/19_error 1.1 444))
(Lib/Makefile (STk/S/22_Makefile 1.1 644))
(Lib/Makefile (STk/S/22_Makefile 1.3 644))
(Lib/Match/compiler.scm (STk/S/23_compiler.s 1.1 444))
(Lib/Match/descr.scm (STk/S/24_descr.scm 1.1 444))
(Lib/Match/mexpand.scm (STk/S/25_mexpand.sc 1.1 444))
@ -542,7 +561,7 @@
(Lib/Match/s2cfun.scm (STk/S/27_s2cfun.scm 1.1 444))
(Lib/STk (.) :symlink)
(Lib/STk.init (STk/S/28_STk.init 1.3 644))
(Lib/bigloo.stk (STk/S/30_bigloo.stk 1.2 644))
(Lib/bigloo.stk (STk/S/30_bigloo.stk 1.3 644))
(Lib/button.stk (STk/S/31_button.stk 1.2 644))
(Lib/compatibility.stk (STk/S/32_compatibil 1.1 644))
(Lib/dialog.stk (STk/S/33_dialog.stk 1.2 444))
@ -558,7 +577,7 @@
(Lib/help.stk (STk/S/43_help.stk 1.2 644))
(Lib/html.stk (STk/S/44_html.stk 1.1 644))
(Lib/image.stk (STk/S/45_image.stk 1.4 644))
(Lib/init.stk (STk/S/46_init.stk 1.13 644))
(Lib/init.stk (STk/S/46_init.stk 1.14 644))
(Lib/inspect-detail.stk (STk/S/47_inspect-de 1.1 644))
(Lib/inspect-help.stk (STk/S/48_inspect-he 1.1 444))
(Lib/inspect-main.stk (STk/S/49_inspect-ma 1.2 644))
@ -567,8 +586,8 @@
(Lib/jpeg.stk (STk/T/0_jpeg.stk 1.1 644))
(Lib/listbox.stk (STk/T/1_listbox.st 1.1 644))
(Lib/listener.stk (STk/T/2_listener.s 1.1 644))
(Lib/match.stk (STk/T/3_match.stk 1.1 644))
(Lib/menu.stk (STk/T/4_menu.stk 1.3 644))
(Lib/match.stk (STk/T/3_match.stk 1.2 644))
(Lib/menu.stk (STk/T/4_menu.stk 1.4 644))
(Lib/palette.stk (STk/T/5_palette.st 1.2 644))
(Lib/pixmap.stk (STk/T/6_pixmap.stk 1.1 644))
(Lib/posix.stk (STk/T/7_posix.stk 1.1 444))
@ -587,18 +606,18 @@
(Lib/tk-unix.stk (STk/e/b/9_tk-unix.st 1.1 644))
(Lib/trace.stk (STk/T/20_trace.stk 1.2 644))
(Lib/unix.stk (STk/T/21_unix.stk 1.1 444))
(Lib/www-browser.stklos (STk/c/b/29_www-browse 1.2 644))
(Lib/www-browser.stklos (STk/c/b/29_www-browse 1.3 644))
(Lib/www-file.stk (STk/T/23_www-file.s 1.2 644))
(Lib/www-html.stk (STk/T/24_www-html.s 1.4 644))
(Lib/www-http.stk (STk/T/25_www-http.s 1.2 644))
(Lib/www-img.stk (STk/T/26_www-img.st 1.2 644))
(Lib/www-img.stk (STk/T/26_www-img.st 1.3 644))
(Lib/www-snd.stk (STk/T/27_www-snd.st 1.2 644))
(Lib/www-txt.stk (STk/T/28_www-txt.st 1.2 644))
(Lib/www-url.stk (STk/T/29_www-url.st 1.2 644))
(Lib/www.stk (STk/T/30_www.stk 1.2 644))
(Lib/www.stk (STk/T/30_www.stk 1.3 644))
;; The Multiple Precision Library (Free and Gnu)
(Mp/Makefile (STk/T/31_Makefile 1.1 444))
(Mp/Makefile (STk/T/31_Makefile 1.2 644))
(Mp/README (STk/T/32_README 1.1 444))
(Mp/fgmp-1.0b5/Makefile (STk/T/33_Makefile 1.1 444))
(Mp/fgmp-1.0b5/gmp.c (STk/T/34_gmp.c 1.1 444))
@ -744,15 +763,15 @@
(STklos/Examples/E3.stklos (STk/W/16_E3.stklos 1.1 444))
(STklos/Examples/E4.stklos (../../Demos/stklos-widgets.stklos) :symlink)
(STklos/Examples/complex.stklos (STk/c/b/12_complex.st 1.1 644))
(STklos/Makefile (STk/W/17_Makefile 1.1 444))
(STklos/Makefile (STk/W/17_Makefile 1.4 644))
(STklos/README.html (STk/W/18_README.htm 1.2 644))
(STklos/Tk/%README (STk/W/19_%README 1.2 644))
(STklos/Tk/Basics.stklos (STk/W/20_Basics.stk 1.10 644))
(STklos/Tk/Button.stklos (STk/W/21_Button.stk 1.3 644))
(STklos/Tk/Basics.stklos (STk/W/20_Basics.stk 1.11 644))
(STklos/Tk/Button.stklos (STk/W/21_Button.stk 1.4 644))
(STklos/Tk/Canvas.stklos (STk/W/22_Canvas.stk 1.4 644))
(STklos/Tk/Canvitem.stklos (STk/W/23_Canvitem.s 1.5 644))
(STklos/Tk/Composite/Balloon.stklos (STk/c/b/23_Balloon.st 1.1 644))
(STklos/Tk/Composite/Choicebox.stklos (STk/W/24_Choicebox. 1.3 644))
(STklos/Tk/Composite/Choicebox.stklos (STk/W/24_Choicebox. 1.4 644))
(STklos/Tk/Composite/Colorbox.stklos (STk/c/b/24_Colorbox.s 1.2 644))
(STklos/Tk/Composite/Defbutton.stklos (STk/W/25_Defbutton. 1.3 644))
(STklos/Tk/Composite/Filebox.stklos (STk/W/26_Filebox.st 1.6 644))
@ -770,25 +789,25 @@
; (STklos/Tk/Composite/down ())
; (STklos/Tk/Composite/grid.stk ())
; (STklos/Tk/Composite/up ())
(STklos/Tk/Entry.stklos (STk/W/36_Entry.stkl 1.5 644))
(STklos/Tk/Entry.stklos (STk/W/36_Entry.stkl 1.6 644))
(STklos/Tk/Frame.stklos (STk/W/37_Frame.stkl 1.3 644))
(STklos/Tk/Image.stklos (STk/W/38_Image.stkl 1.4 644))
(STklos/Tk/Listbox.stklos (STk/W/39_Listbox.st 1.3 644))
(STklos/Tk/Menu.stklos (STk/W/40_Menu.stklo 1.2 644))
(STklos/Tk/Message.stklos (STk/W/41_Message.st 1.2 644))
(STklos/Tk/STF.stklos (STk/W/42_STF.stklos 1.1 444))
(STklos/Tk/Scale.stklos (STk/W/43_Scale.stkl 1.2 644))
(STklos/Tk/Scale.stklos (STk/W/43_Scale.stkl 1.3 644))
(STklos/Tk/Scrollbar.stklos (STk/W/44_Scrollbar. 1.2 644))
(STklos/Tk/Text.stklos (STk/W/45_Text.stklo 1.4 644))
(STklos/Tk/Text.stklos (STk/W/45_Text.stklo 1.5 644))
(STklos/Tk/Tk-active.stklos (STk/W/46_Tk-active. 1.3 644))
(STklos/Tk/Tk-classes.stklos (STk/W/47_Tk-classes 1.11 644))
(STklos/Tk/Tk-classes.stklos (STk/W/47_Tk-classes 1.12 644))
(STklos/Tk/Tk-meta.stklos (STk/W/48_Tk-meta.st 1.8 644))
(STklos/Tk/Toplevel.stklos (STk/W/50_Toplevel.s 1.7 644))
; (STklos/Tk/Widget/ImgButton.stklos ())
(STklos/active-slot.stklos (STk/c/b/21_active-slo 1.1 644))
(STklos/composite-slot.stklos (STk/c/b/22_composite- 1.1 644))
(STklos/describe.stklos (STk/c/b/14_describe.s 1.1 644))
(STklos/stklos.stk (STk/c/b/10_stklos.stk 1.19 644))
(STklos/stklos.stk (STk/c/b/10_stklos.stk 1.21 644))
(STklos/trace-gf.stklos (STk/c/b/11_trace-gf.s 1.1 644))
;; Snow (Stk with NO Window) Directory
@ -855,7 +874,7 @@
(Snow/vector.c (../Src/vector.c) :symlink)
;; Source directory of the Interpreter
(Src/Makefile.in (STk/X/5_Makefile.i 1.4 644))
(Src/Makefile.in (STk/X/5_Makefile.i 1.5 644))
(Src/address.c (STk/X/6_address.c 1.1 444))
(Src/argv.c (STk/X/7_argv.c 1.1 444))
(Src/boolean.c (STk/X/8_boolean.c 1.1 444))
@ -866,7 +885,7 @@
(Src/dummy.c (STk/X/13_dummy.c 1.1 444))
(Src/dump.c (STk/X/14_dump.c 1.1 444))
(Src/dynload.c (STk/X/15_dynload.c 1.2 644))
(Src/env.c (STk/X/16_env.c 1.4 644))
(Src/env.c (STk/X/16_env.c 1.5 644))
(Src/error.c (STk/X/17_error.c 1.4 644))
(Src/eval.c (STk/X/18_eval.c 1.10 644))
(Src/extend.c (STk/X/19_extend.c 1.2 644))
@ -875,16 +894,16 @@
(Src/gc.h (STk/X/22_gc.h 1.1 444))
(Src/hash.c (../Extensions/hash.c) :symlink)
(Src/html.c (../Extensions/html.c) :symlink)
(Src/io.c (STk/X/23_io.c 1.1 444))
(Src/io.c (STk/X/23_io.c 1.2 644))
(Src/jpeg.c (../Extensions/jpeg.c) :symlink)
(Src/keyword.c (STk/X/24_keyword.c 1.1 444))
(Src/list.c (STk/X/25_list.c 1.1 444))
(Src/macros.c (STk/X/26_macros.c 1.2 644))
(Src/module.c (STk/X/27_module.c 1.7 644))
(Src/module.c (STk/X/27_module.c 1.8 644))
(Src/module.h (STk/X/28_module.h 1.2 644))
(Src/number.c (STk/X/29_number.c 1.2 644))
(Src/pixmap.c (../Extensions/pixmap.c) :symlink)
(Src/port.c (STk/X/30_port.c 1.5 644))
(Src/port.c (STk/X/30_port.c 1.6 644))
(Src/posix.c (../Extensions/posix.c) :symlink)
(Src/primitives.c (STk/X/31_primitives 1.10 644))
(Src/print.c (STk/X/32_print.c 1.3 644))
@ -893,32 +912,32 @@
(Src/promise.c (STk/X/34_promise.c 1.1 444))
(Src/read.c (STk/X/35_read.c 1.3 644))
(Src/run-stk.in (STk/X/36_run-stk.in 1.1 444))
(Src/signal.c (STk/X/37_signal.c 1.3 644))
(Src/signal.c (STk/X/37_signal.c 1.4 644))
(Src/slib.c (STk/X/38_slib.c 1.6 644))
(Src/socket.c (../Extensions/socket.c) :symlink)
(Src/sport.c (STk/X/39_sport.c 1.1 444))
(Src/sport.h (STk/X/40_sport.h 1.1 444))
(Src/sregexp.c (../Extensions/sregexp.c) :symlink)
(Src/stk.c (STk/X/41_stk.c 1.1 444))
(Src/stk.h (STk/X/42_stk.h 1.11 644))
(Src/stklos.c (STk/X/43_stklos.c 1.12 644))
(Src/stk.h (STk/X/42_stk.h 1.12 644))
(Src/stklos.c (STk/X/43_stklos.c 1.13 644))
(Src/stklos.h (STk/X/44_stklos.h 1.5 644))
(Src/str.c (STk/X/45_str.c 1.1 644))
(Src/symbol.c (STk/X/46_symbol.c 1.1 444))
(Src/syntax.c (STk/X/47_syntax.c 1.2 444))
(Src/tcl-glue.c (STk/X/48_tcl-glue.c 1.4 644))
(Src/tcl-glue.c (STk/X/48_tcl-glue.c 1.5 644))
(Src/tcl-glue.h (STk/X/49_tcl-glue.h 1.2 644))
(Src/tcl-lib.c (STk/X/50_tcl-lib.c 1.2 644))
(Src/tcl-obj.c (STk/X/51_tcl-obj.c 1.2 644))
(Src/tcl-obj.c (STk/X/51_tcl-obj.c 1.3 644))
(Src/tcl-util.c (STk/Y/0_tcl-util.c 1.1 444))
(Src/test-stk (STk/Y/1_test-stk 1.1 755))
(Src/tk-glue.c (STk/Y/2_tk-glue.c 1.4 644))
(Src/tk-glue.h (STk/Y/3_tk-glue.h 1.2 644))
(Src/tk-main.c (STk/Y/4_tk-main.c 1.3 644))
(Src/tk-util.c (STk/Y/5_tk-util.c 1.1 444))
(Src/toplevel.c (STk/Y/6_toplevel.c 1.4 644))
(Src/toplevel.c (STk/Y/6_toplevel.c 1.5 644))
(Src/trace.c (STk/Y/7_trace.c 1.1 444))
(Src/unix.c (STk/Y/8_unix.c 1.2 644))
(Src/unix.c (STk/Y/8_unix.c 1.3 644))
(Src/userinit.c (STk/Y/9_userinit.c 1.1 644))
(Src/values.c (STk/e/b/10_values.c 1.1 644))
(Src/vector.c (STk/Y/11_vector.c 1.1 444))
@ -937,14 +956,13 @@
(Stack/libstack-SUN.c (STk/Y/21_libstack-S 1.1 644))
(Stack/libstack-I386.c (STk/Y/22_libstack-I 1.1 644))
(Stack/libstack-ALPHA.c (STk/Y/23_libstack-A 1.1 644))
(Stack/conftest.c (STk/Y/24_conftest.c 1.1 644))
(Stack/configure (STk/Y/25_configure 1.2 755))
(Stack/Makefile.in (STk/Y/26_Makefile.i 1.1 644))
(Stack/configure.in (STk/Y/27_configure. 1.2 644))
(Stack/README (STk/Y/28_README 1.1 644))
;; Tcl Directory (only part which are useful for STk)
(Tcl/Makefile.in (STk/Y/29_Makefile.i 1.1 644))
(Tcl/Makefile.in (STk/Y/29_Makefile.i 1.2 644))
(Tcl/README (STk/Y/30_README 1.1 644))
(Tcl/compat/README (STk/Y/31_README 1.1 444))
(Tcl/compat/dirent.h (STk/Y/32_dirent.h 1.1 444))
@ -978,7 +996,7 @@
(Tcl/tclEvent.c (STk/Z/8_tclEvent.c 1.2 644))
(Tcl/tclGet.c (STk/Z/9_tclGet.c 1.1 644))
(Tcl/tclHash.c (STk/Z/10_tclHash.c 1.1 644))
(Tcl/tclInt.h (STk/Z/11_tclInt.h 1.1 644))
(Tcl/tclInt.h (STk/Z/11_tclInt.h 1.2 644))
(Tcl/tclMtherr.c (STk/Z/12_tclMtherr. 1.1 644))
(Tcl/tclNotify.c (STk/Z/13_tclNotify. 1.1 644))
(Tcl/tclPort.h (STk/Z/14_tclPort.h 1.1 644))
@ -987,7 +1005,7 @@
(Tcl/tclTimer.c (STk/Z/17_tclTimer.c 1.2 644))
(Tcl/tclUnixEvent.c (STk/Z/18_tclUnixEve 1.1 444))
(Tcl/tclUnixNotfy.c (STk/Z/19_tclUnixNot 1.1 644))
(Tcl/tclUnixPort.h (STk/Z/20_tclUnixPor 1.1 644))
(Tcl/tclUnixPort.h (STk/Z/20_tclUnixPor 1.2 644))
(Tcl/tclUnixTime.c (STk/Z/21_tclUnixTim 1.1 644))
(Tcl/tclUtil.c (STk/Z/22_tclUtil.c 1.3 644))
@ -1100,11 +1118,11 @@
(Tk/generic/tkVisual.c (STk/b/b/23_tkVisual.c 1.1 644))
(Tk/generic/tkWindow.c (STk/b/b/24_tkWindow.c 1.2 644))
(Tk/license.terms (STk/b/b/25_license.te 1.1 444))
(Tk/unix/Makefile.in (STk/b/b/26_Makefile.i 1.3 644))
(Tk/unix/Makefile.in (STk/b/b/26_Makefile.i 1.5 644))
(Tk/unix/README (STk/b/b/27_README 1.1 644))
(Tk/unix/configure (STk/b/b/28_configure 1.1 755))
(Tk/unix/configure.in (STk/b/b/29_configure. 1.1 644))
(Tk/unix/install-sh (STk/b/b/30_install-sh 1.1 644))
(Tk/unix/install-sh (STk/b/b/30_install-sh 1.1 755))
(Tk/unix/license.terms (STk/b/b/31_license.te 1.1 644))
(Tk/unix/mkLinks (STk/b/b/32_mkLinks 1.1 644))
(Tk/unix/porting.notes (STk/b/b/33_porting.no 1.1 644))
@ -1138,6 +1156,10 @@
;; Utilities directory
(Utils/install-sh (STk/c/b/9_install-sh 1.1 555))
(Utils/STk.spec.in (STk/e/b/20_STk.spec.i 1.9 644))
(Utils/STk.spec (STk/e/b/21_STk.spec 1.9 644))
;; Windows Directory
; (Win32/STk-make.vc ())
@ -1148,7 +1170,6 @@
; (Win32/STk-make.bc ())
; (Win32/STk.ico () :no-keywords)
)
(Merge-Parents)
(New-Merge-Parents)

2
STklos/Examples/complex.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: complex.stklos 1.1 Thu, 22 Jan 1998 16:04:46 +0100 eg $
;;;; $Id: complex.stklos 1.1 Thu, 22 Jan 1998 15:04:46 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 20-Jan-1998 17:28

10
STklos/Makefile
View File

@ -1,7 +1,7 @@
#
# Makefile for STklos
#
# Copyright © 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
# Copyright © 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
#
# Permission to use, copy, and/or distribute this software and its
# documentation for any purpose and without fee is hereby granted, provided
@ -13,7 +13,7 @@
#
# Author: Erick Gallesio [eg@unice.fr]
# Creation date: 29-Jun-1993 13:58
# Last file update: 15-Nov-1996 23:46
# Last file update: 30-Apr-1998 16:48
#
include ../config.make
@ -25,9 +25,9 @@ stklos:
install:
-if [ ! -d $(LIB_STKLOS) ] ; then mkdir -p $(LIB_STKLOS); fi
$(CP) *.stk $(LIB_STKLOS)
$(CP) Tk/*.stklos Tk/Composite/*.stklos Tk/Widget/*.stklos $(LIB_STKLOS)
chmod 0644 $(LIB_STKLOS)/*
$(CP) *.stk *.stklos $(LIB_STKLOS)
$(CP) Tk/*.stklos Tk/Composite/*.stklos $(LIB_STKLOS)
chmod 0644 $(LIB_STKLOS)/*.stklos $(LIB_STKLOS)/*.stk
install.libs:

17
STklos/Tk/Basics.stklos
View File

@ -11,11 +11,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Basics.stklos 1.10 Sun, 22 Mar 1998 17:16:09 +0100 eg $
;;;; $Id: Basics.stklos 1.11 Mon, 27 Apr 1998 13:39:00 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Mar-1993 15:39
;;;; Last file update: 22-Mar-1998 11:46
;;;; Last file update: 27-Apr-1998 12:30
(require "Tk-meta")
@ -54,6 +54,18 @@
(error "Value of the slot ``~S'' in ~S cannot be changed." slot object))
;;
;; Initialize the virtual "value" slot independently of the state of the object
;; (Tk forbid to give a value to a "disabled" object)
;;
(define (initialize-value-slot obj value)
(let ((s (slot-ref obj 'state)))
(unless (equal? s "normal")
(slot-set! obj 'state "normal")
(slot-set! obj 'value value)
(slot-set! obj 'state s))))
;=============================================================================
;
; <Tk-object>
@ -447,6 +459,7 @@
:allocation :tk-virtual))
:metaclass <Tk-metaclass>)
;=============================================================================
;
; <Destroyed-object>

12
STklos/Tk/Button.stklos
View File

@ -12,11 +12,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Button.stklos 1.3 Fri, 23 Jan 1998 18:46:19 +0100 eg $
;;;; $Id: Button.stklos 1.4 Mon, 27 Apr 1998 13:39:00 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 30-Mar-1993 15:39
;;;; Last file update: 23-Jan-1998 11:41
;;;; Last file update: 27-Apr-1998 11:20
(require "Basics")
@ -129,10 +129,12 @@
:init-keyword :value
:allocation :virtual
:slot-ref (lambda (o)
(eval-string (slot-ref o 'variable)))
:slot-set! (lambda (o v)
(eval (string->symbol (slot-ref o 'variable))
(slot-ref o 'environment)))
:slot-set! (lambda (o v)
(eval `(set! ,(string->symbol
(slot-ref o 'variable)) ,v))))))
(slot-ref o 'variable)) ,v)
(slot-ref o 'environment))))))
(define-method tk-constructor ((self <Check-button>))
Tk:checkbutton)

2
STklos/Tk/Canvas.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Canvas.stklos 1.4 Sun, 22 Mar 1998 20:42:56 +0100 eg $
;;;; $Id: Canvas.stklos 1.4 Sun, 22 Mar 1998 19:42:56 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 18-Aug-1993 19:55

2
STklos/Tk/Canvitem.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Canvitem.stklos 1.5 Sun, 22 Mar 1998 20:42:56 +0100 eg $
;;;; $Id: Canvitem.stklos 1.5 Sun, 22 Mar 1998 19:42:56 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 24-Aug-1993 11:24

2
STklos/Tk/Composite/Balloon.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Balloon.stklos 1.1 Wed, 04 Feb 1998 11:34:59 +0100 eg $
;;;; $Id: Balloon.stklos 1.1 Wed, 04 Feb 1998 10:34:59 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 23-Oct-1996 17:02

6
STklos/Tk/Composite/Choicebox.stklos
View File

@ -11,11 +11,11 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Choicebox.stklos 1.3 Wed, 04 Feb 1998 11:34:59 +0100 eg $
;;;; $Id: Choicebox.stklos 1.4 Mon, 27 Apr 1998 13:39:00 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 22-Mar-1994 13:05
;;;; Last file update: 3-Feb-1998 19:22
;;;; Last file update: 27-Apr-1998 12:11
(require "Basics")
@ -146,7 +146,7 @@
;; Now one with a set of value pre-defined and no other value allowed
(define c2 (make <Choice-box> :title "Enter another choice"
:title-anchor 'e :title-width 20
:title-anchor 'e :title-width 20 :value 1
:state "disabled" :choices '(1 2 3 4)))
(pack c1 c2)
|#

2
STklos/Tk/Composite/Colorbox.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Colorbox.stklos 1.2 Mon, 16 Feb 1998 08:28:39 +0100 eg $
;;;; $Id: Colorbox.stklos 1.2 Mon, 16 Feb 1998 07:28:39 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 2-Jan-1998 14:00

2
STklos/Tk/Composite/Defbutton.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Defbutton.stklos 1.3 Wed, 04 Feb 1998 11:34:59 +0100 eg $
;;;; $Id: Defbutton.stklos 1.3 Wed, 04 Feb 1998 10:34:59 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 22-Mar-1994 13:05

2
STklos/Tk/Composite/Filebox.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Filebox.stklos 1.6 Tue, 03 Mar 1998 23:48:24 +0100 eg $
;;;; $Id: Filebox.stklos 1.6 Tue, 03 Mar 1998 22:48:24 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 22-Mar-1994 13:05

2
STklos/Tk/Composite/Gauge.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Gauge.stklos 1.1 Wed, 04 Feb 1998 11:34:59 +0100 eg $
;;;; $Id: Gauge.stklos 1.1 Wed, 04 Feb 1998 10:34:59 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-Oct-1996 14:53

2
STklos/Tk/Composite/Lentry.stklos
View File

@ -11,7 +11,7 @@
;;;; permission of the copyright holder.
;;;; This software is provided ``as is'' without express or implied warranty.
;;;;
;;;; $Id: Lentry.stklos 1.4 Wed, 04 Feb 1998 11:34:59 +0100 eg $
;;;; $Id: Lentry.stklos 1.4 Wed, 04 Feb 1998 10:34:59 +0000 eg $
;;;;
;;;; Author: Erick Gallesio [eg@kaolin.unice.fr]
;;;; Creation date: 22-Mar-1994 13:05

Some files were not shown because too many files have changed in this diff Show More