Hello:<br>I believe this is not what you call examples, but this is an application I developed for a physics matter. <br>I also wrote a comic viewer using ltk. It's at <a href="http://common-lisp.net">common-lisp.net</a>, but at the moment I have problems with utf and that version doesn't work. The newer versions at my box work perfectly.
<br>I believe I could write some little demos If you want, say what you want and give me some time. I'm a poor student.<br>Bye!<br><br>PD: The application messages are written in catalonian. Maybe you have problems with non-ascii characters.
<br><br><br><div><span class="gmail_quote">2006/11/23, Bernhard Graf &lt;<a href="mailto:bgraf@adartis.de">bgraf@adartis.de</a>&gt;:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
I made it !!! :-)<br><br>(defun scaler ()<br>&nbsp;&nbsp; (with-ltk ()<br>&nbsp;&nbsp;&nbsp;&nbsp; (let* ((frm (make-instance 'frame))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lab (make-instance 'label :master frm :text &quot;Enter Name: &quot;))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (ent (make-instance 'entry :master frm))
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (age 0)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (textarea (make-instance 'frame))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (txt (make-instance 'scrolled-text :master textarea))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (scl (make-instance 'scale :label &quot;Age:&quot; :digits 1 :from 10 :to
<br>50 :tickinterval 10))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (but (make-instance 'button :master textarea :text &quot;Push Me&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:command (lambda () (append-text txt<br>(concatenate 'string &quot;Hello, &quot;&nbsp;&nbsp;(text ent ) (format nil &quot;, you are ~D
<br>years old&quot; (value scl))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack lab :side :left)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack ent :side :left)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack frm)<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack scl)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack but)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack txt)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pack textarea)<br>)))<br><br>Actually, while programming this seemingly simple example, I<br>recognized that LISP has 1001 arithmetic functions, but when it comes
<br>to string-to-number-and-back conversion, it looks pretty bad.<br><br>Is that so or am I just only looking at the wrong places ?<br>I found a parse-number library from Matthew Danish and use format to<br>convert from numbers back to strings, but the latter seems rather
<br>ugly compared to actual &quot;functions&quot; that I know from Turbo Pascal and<br>the former is quite good, but still not completely universal.<br><br>Greetings,<br>Bernhard<br><br>Am 23.11.2006 um 13:04 schrieb Peter Herth:
<br><br>&gt; Or just (value myscale) if myscale is the scale widget....<br>&gt;<br>&gt; Peter<br>&gt; _______________________________________________<br>&gt; ltk-user site list<br>&gt; <a href="mailto:ltk-user@common-lisp.net">
ltk-user@common-lisp.net</a><br>&gt; <a href="http://common-lisp.net/mailman/listinfo/ltk-user">http://common-lisp.net/mailman/listinfo/ltk-user</a><br><br><br>_______________________________________________<br>ltk-user site list
<br><a href="mailto:ltk-user@common-lisp.net">ltk-user@common-lisp.net</a><br><a href="http://common-lisp.net/mailman/listinfo/ltk-user">http://common-lisp.net/mailman/listinfo/ltk-user</a><br></blockquote></div><br><br clear="all">
<br>-- <br>Felip Alàez Nadal