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