[mcclim-cvs] CVS mcclim/Backends/CLX

[gbaumann]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv2833/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
Use force-output instead of finish-output as the latter implies
waiting for an answer from the display server, which is something
we really do not want to do.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2009/04/20 10:21:00	1.140
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp	2009/08/01 16:10:39	1.141
@@ -863,7 +863,7 @@
          (port-client-message sheet time type data))
 	(t         
 	 (unless (xlib:event-listen (clx-port-display *clx-port*))
-	   (xlib:display-finish-output (clx-port-display *clx-port*)))
+	   (xlib:display-force-output (clx-port-display *clx-port*)))
 	 nil)))))
 
 
@@ -908,7 +908,7 @@
   (let* ((*clx-port* port)
          (display    (clx-port-display port)))
     (unless (xlib:event-listen display)
-      (xlib:display-finish-output (clx-port-display port)))
+      (xlib:display-force-output (clx-port-display port)))
     ; temporary solution
     (or (xlib:process-event (clx-port-display port) :timeout timeout :handler #'event-handler :discard-p t)
 	:timeout)))
@@ -1386,7 +1386,7 @@
     #+nil ; debugging output
     (progn
       (describe event *trace-output*)
-      (finish-output *trace-output*))
+      (force-output *trace-output*))
     (flet ((send-event (&key target (property property))
 	     ;; debugging output, but the KDE Klipper client turns out
 	     ;; to poll other clients for selection, which means it