Hi,

The current CVS McCLIM freeze on drag'n drop with clisp/new-clx. It seems that mcclim expect xlib:process-event to timeout. This is the case with clisp/mit-clx but never with clisp/new-clx. So there is an infinite loop with clisp/new-clx.

Here is a little fix to run most mcclim examples with clisp/new-clx. I don't know if this is the right thing to do and I haven't found the difference between the 2 clx versions.

If someone with a higher view can take a look at it.

--8< cut here -------------------------------------------------------- Index: Lisp-Dep/mp-nil.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-nil.lisp,v retrieving revision 1.7 diff -u -w -p -r1.7 mp-nil.lisp --- Lisp-Dep/mp-nil.lisp 8 Jul 2006 16:58:36 -0000 1.7 +++ Lisp-Dep/mp-nil.lisp 26 Nov 2008 14:54:12 -0000 @@ -127,6 +127,7 @@ (loop for port in climi::*all-ports* ;; this is dubious do (loop as this-event = (process-next-event port :timeout 0) for got-events = this-event then (or got-events this-event) + repeat 2 while this-event finally (unless got-events (process-next-event port)))) (car cv))) --8< cut here --------------------------------------------------------

Regards,

Philippe