[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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

Modified Files:
	ffi.lisp gtk-ffi.lisp 
Log Message:
Restore windows buildability once again.

	* gtk-ffi.lisp (gdk_x11_drawable_get_xid): Moved from ffi.lisp.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/ffi.lisp	2006/12/20 18:45:37	1.9
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/ffi.lisp	2006/12/20 19:26:14	1.10
@@ -932,11 +932,6 @@
   (invalidate_children :int)            ;gboolean
   )
 
-(defcfun "gdk_x11_drawable_get_xid"
-    :unsigned-long
-  (drawable :pointer)                   ;GdkDrawable *
-  )
-
 (defcfun "gtk_adjustment_new"
     :pointer
   (value :double)                       ;gdouble
--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp	2006/12/20 18:45:37	1.20
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gtk-ffi.lisp	2006/12/20 19:26:14	1.21
@@ -327,6 +327,12 @@
   (nbytes :int)                         ;int
   )
 
+#-(or win32 windows mswindows)
+(defcfun "gdk_x11_drawable_get_xid"
+    :unsigned-long
+  (drawable :pointer)                   ;GdkDrawable *
+  )
+
 (defconstant GDK_CURRENT_TIME 0)
 
 ;; fixme: GtkWidgetFlags is an enum, why is it not in the object file?