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)