[mcclim-cvs] CVS mcclim/Backends/CLX

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv28382

Modified Files:
	port.lisp 
Log Message:
Surely we mean finish rather than force output.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2007/09/11 19:54:40	1.129
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2008/01/14 00:01:04	1.130
@@ -279,7 +279,7 @@
         #'clx-error-handler)
 
       #+nil ;; Uncomment this when debugging CLX backend if asynchronous errors become troublesome..
-      (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-force-output))
+      (setf (xlib:display-after-function (clx-port-display port)) #'xlib:display-finish-output))
       
     
     (setf (clx-port-screen port) (nth (getf options :screen-id)