McCLIM and clisp/new-clx

[Christophe Rhodes]

Report from Philippe Brochard

 affects mcclim
 importance medium
 tag clisp clx
 done

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