[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory clnet:/tmp/cvs-serv2828

Modified Files:
	event.lisp gtk-ffi.lisp port.lisp 
Log Message:
restore build on windows


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp	2006/11/05 17:22:23	1.9
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/event.lisp	2006/11/05 18:43:19	1.10
@@ -86,11 +86,11 @@
 	(car c)))))
 
 (defun dribble-x-errors ()
+  #-(or win32 windows mswindows)
   (unless (zerop *-gdk-error-code*)
     (warn "Ignoring X error ~D: ~A"
 	  *-gdk-error-code*
 	  (cffi:with-foreign-pointer-as-string (buf 64)
-	    #-(or win32 windows mswindows)
 	    (XGetErrorText *gdk-display* *-gdk-error-code* buf 63)))
     (setf *-gdk-error-code* 0)))
 
@@ -107,6 +107,7 @@
 (defmethod get-next-event
     ((port gtkairo-port) &key wait-function (timeout nil))
   (declare (ignore wait-function))
+  #-clim-mp (port-force-output port)
   (gtk-main-iteration port)
   (cond
     ((dequeue port))
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp	2006/11/05 17:29:11	1.9
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp	2006/11/05 18:43:19	1.10
@@ -136,6 +136,7 @@
 (cffi:defcvar "_gdk_error_warnings" :int)
 (cffi:defcvar "_gdk_error_code" :int)
 
+#-(or win32 mswindows windows)
 (cffi:defcfun "XGetErrorText"
     :void
   (display :pointer)
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp	2006/11/05 17:22:23	1.5
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp	2006/11/05 18:43:19	1.6
@@ -75,6 +75,7 @@
   (when (zerop *g-threads-got-initialized*)
     (g_thread_init (cffi:null-pointer))
     (gdk_threads_init)
+    #-(or win32 windows mswindows)
     (setf *-gdk-error-warnings* 0))
   (with-gtk ()
     ;; FIXME: hier koennten wir mindestens ein anderes --display uebergeben