70 lines
1.9 KiB
HTML
70 lines
1.9 KiB
HTML
|
<!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>
|