Hi everyone,
I'm playing around with clm (the motif interface, not the music
package). I've copied the example code from the end of the manual,
but when I try to run it, it hangs (though I can still break out and
go back to the top-level). The motif debugger works, so I'm guessing
there's something wrong with the code. Here it is:
(in-package :toolkit)
(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 "Quit"))
(button (create-push-button-gadget rc "button"
:highlight-on-enter t
:shadow-thickness 0
:label-string "This is a button")))
(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))
Here's a transcript:
CMU Common Lisp release x86-linux 3.0.8 18c+ 31 December 2001 build 3030,
running on clever-hans
For support see http://www.cons.org/cmucl/support.html Send bug reports to the
debian BTS.
or to [EMAIL PROTECTED]
type (help) for help, (quit) to exit, and (demo) to see the demos
Loaded subsystems:
Python 1.0, target Intel x86
CLOS based on PCL version: September 16 92 PCL (f)
*
* (require :cmucl-clm)
; Loading #p"/usr/share/common-lisp/systems/cmucl-clm.system".
Warning: System CLX doesn't seem to be defined...
(#<FILE: precom> #<FILE: debug> #<FILE: inspect> #<FILE: interface>
#<FILE: initial>)
* ;;;Compile /home/cbb/src/lisp/clm-example.lisp
Python version 1.0, VM version Intel x86 on 17 MAR 02 03:44:33 pm.
Compiling: /home/cbb/src/lisp/clm-example.lisp 17 MAR 02 03:34:29 pm
Converted MY-CALLBACK.
Compiling DEFUN MY-CALLBACK:
Converted TEST-INIT.
Compiling DEFUN TEST-INIT:
Converted TEST.
Compiling DEFUN TEST:
Byte Compiling Top-Level Form:
/home/cbb/src/lisp/clm-example.x86f written.
Compilation finished in 0:00:00.
#p"/home/cbb/src/lisp/clm-example.x86f"
NIL
NIL
*
; Loading #p"/home/cbb/src/lisp/clm-example.x86f".
T
* (in-package :toolkit)
#<The TOOLKIT package, 199/232 internal, 268/269 external>
* (run-motif-application 'test-init)
... and it just hangs until I break out of it.
Does anyone have any ideas?
TIA,
cbb
--
3:34pm up 3 days, 19:22, 2 users, load average: 0.13, 0.07, 0.02
