[gtk-cffi-cvs] CVS gtk-cffi/g-object

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/g-object
In directory tiger.common-lisp.net:/tmp/cvs-serv7466/g-object

Modified Files:
	defslots.lisp g-type.lisp 
Log Message:
Fixed GDK for new CFFI version


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-object/defslots.lisp	2012/08/12 17:42:30	1.13
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-object/defslots.lisp	2012/08/19 16:22:30	1.14
@@ -25,6 +25,7 @@
           (setter (symbolicate prefix '- current-class '-set- name-gtk)))
       `(progn
          (save-setter ,current-class ,name-lisp)
+         (export ',name-lisp)
          (defcfun ,getter ,slot-type (object pobject))
          (defcfun ,setter :void (widget pobject) (value ,slot-type))
          (unless (fboundp ',name-lisp)
@@ -65,6 +66,7 @@
            (param-list (param-list params))
            (cparams (remove '&key params)))
       `(progn            
+         (export ',name-lisp)
          (defcfun ,fun-name ,res-type (,class pobject) , at cparams)
          (unless (fboundp ',name-lisp)
            (defgeneric ,name-lisp (,class , at param-list)))
@@ -92,6 +94,7 @@
           (param-list (param-list params))
           (cparams (remove '&key params)))
       `(progn
+         (export ',name-lisp)
          ,(unless params `(save-setter ,class ,name-lisp))
          ,(if last
               `(defcfun ,setter :void (widget pobject) 
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-object/g-type.lisp	2012/08/12 17:42:30	1.8
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-object/g-type.lisp	2012/08/19 16:22:30	1.9
@@ -50,7 +50,8 @@
   (class-size :uint)
   (instance-size :uint))
 
-(defcfun g-type-query :void (type g-type) (query g-type-query))
+(defcfun g-type-query :void (type g-type) 
+         (query (:pointer (:struct g-type-query))))
 
 (defun g-type->keyword (num)
   "Integer (GType) -> keyword from +fundamental-gtypes+"