Erick Gallesio
26 years ago
parent
5f74a25a3c
commit
3c98caa84e
@ -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>
|
||||
@ -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>
|
||||
@ -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>
|
||||
@ -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 <Labeled-entry> :value 50 :title "Valeur:"))
|
||||
</pre>
|
||||
|
||||
<font size=+4>
|
||||
defines <tt>le</tt> as an instance of the <tt><Labeled-entry></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><Labeled-entry></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>
|
||||
@ -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>
|
||||
@ -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>
|
||||
@ -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 <Button>
|
||||
: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>
|
||||
@ -0,0 +1 @@
|
||||
make-image.n
|
||||
@ -0,0 +1 @@
|
||||
make-image.n
|
||||
@ -0,0 +1 @@
|
||||
make-image.n
|
||||
@ -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")
|
||||
))
|
||||
@ -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)
|
||||
@ -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
|
||||
|
||||
@ -0,0 +1 @@
|
||||
repl-display-prompt.n
|
||||