This is a multi-part message in MIME format.
--------------67AB669D5F16EAA863A999CA
Content-Type: multipart/alternative;
boundary="------------90FCFF81B643EBFE7CD4E3C1"
--------------90FCFF81B643EBFE7CD4E3C1
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hello,
I'm working with "A Brief Examle" from "CMUCL Motif Toolkit"
(the text of the example is in attachment).
I've run (test) several times then saw the running processes:
15519 ? S 0:00 motifd
15520 ? Z 0:00 motifd <defunct>
15533 ? Z 0:00 motifd <defunct>
15536 ? Z 0:00 motifd <defunct>
15539 ? Z 0:00 motifd <defunct>
$
Is this right ?
My actions:
$ lisp
CMU Common Lisp release x86-linux 2.4.22 3 October 2000 build 1154,
running on Olla
...............
* (use-package :TOOLKIT)
T
* (load ".../m.lisp")
T
* (test)
The last step ( (test) I've repeated several times).
Thanks
--
Vladimir Zolotych ······@eurocom.od.ua
--------------90FCFF81B643EBFE7CD4E3C1
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Hello,
<br>I'm working with "A Brief Examle" from "CMUCL Motif Toolkit"
<br>(the text of the example is in attachment).
<br>I've run (test) several times then saw the running processes:
<p>15519 ? S
0:00 motifd
<br>15520 ? Z
0:00 motifd <defunct>
<br>15533 ? Z
0:00 motifd <defunct>
<br>15536 ? Z
0:00 motifd <defunct>
<br>15539 ? Z
0:00 motifd <defunct>
<br>$
<br>Is this right ?
<br>My actions:
<br>$ lisp
<br>CMU Common Lisp release x86-linux 2.4.22 3 October 2000 build
1154, running on Olla
<br>...............
<br>* (use-package :TOOLKIT)
<br>T
<br>* (load ".../m.lisp")
<br>T
<br>* (test)
<br>The last step ( (test) I've repeated several times).
<p>Thanks
<pre>--
Vladimir Zolotych ······@eurocom.od.ua</pre>
</html>
--------------90FCFF81B643EBFE7CD4E3C1--
--------------67AB669D5F16EAA863A999CA
Content-Type: text/plain; charset=iso-8859-1;
name="m.lisp"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline;
filename="m.lisp"
(defun my-callback (widget call-data quit)
(format t "Got callback on ~A~%" widget)
(format t "Callback reason was ~A~%" (any-callback-reason call-data))
(format t "Quit button is ~A~%" quit))
(defun test-init ()
(let* ((shell (create-application-shell))
(rc (create-row-column shell "rowColumn"))
(quit (create-push-button-gadget rc "quitButton"
:label-string "�����"))
(button (create-push-button-gadget rc "button"
:highlight-on-enter t
:shadow-thickness 0
:label-string "��� ������")))
(add-callback quit :activate-callback #'quit-application-callback)
(add-callback button :activate-callback 'my-callback quit)
(manage-child rc)
(manage-children quit button)
(realize-widget shell)))
(defun test ()
(run-motif-application 'test-init))
--------------67AB669D5F16EAA863A999CA
Content-Type: text/x-vcard; charset=us-ascii;
name="gsmith.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Vladimir V. Zolotych
Content-Disposition: attachment;
filename="gsmith.vcf"
begin:vcard
n:Zolotych;Valdimir V.
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
·····················@eurocom.od.ua
x-mozilla-cpt:;0
fn:Valdimir V. Zolotych
end:vcard
--------------67AB669D5F16EAA863A999CA--