[mcclim-cvs] CVS mcclim/Backends/gtkairo - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

20 Nov 2006

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory clnet:/tmp/cvs-serv25370
Modified Files:
    ffi.lisp gtk-ffi.lisp 
Log Message:
Move XGetErrorText back into gtk-ffi.lisp; disable it on windows.

--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/ffi.lisp	2006/11/19 18:08:16	1.4
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/ffi.lisp	2006/11/20 19:53:44	1.5
@@ -1340,11 +1340,3 @@
   (window :pointer)                     ;GtkWindow *
   (title :string)                       ;const gchar *
   )
-
-(defcfun "XGetErrorText"
-    :int
-  (dpy :pointer)                        ;Display *
-  (code :int)                           ;int
-  (buffer :string)                      ;char *
-  (nbytes :int)                         ;int
-  )
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp	2006/11/19 15:55:10	1.15
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp	2006/11/20 19:53:44	1.16
@@ -316,6 +316,15 @@
   (index :int)
   &rest)
+#-(or win32 windows mswindows)
+(defcfun "XGetErrorText"
+    :int
+  (dpy :pointer)                        ;Display *
+  (code :int)                           ;int
+  (buffer :string)                      ;char *
+  (nbytes :int)                         ;int
+  )
+
 (defconstant GDK_CURRENT_TIME 0)
;; fixme: GtkWidgetFlags is an enum, why is it not in the object file?

    