[mcclim-devel] McCLIM and clisp/new-clx

[Philippe Brochard]

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

-- 
Philippe Brochard    <pbrochard at common-lisp.net>
                      http://hocwp.free.fr