support for setting gvalue to values of g-boxed-class

[cl-gtk2.git] / glib / gobject.structs.lisp

diff --git a/glib/gobject.structs.lisp b/glib/gobject.structs.lisp
index 0be2503..6f5014f 100644 (file)
--- a/glib/gobject.structs.lisp
+++ b/glib/gobject.structs.lisp
@@ -24,6 +24,12 @@
   (instance-init-fn :pointer)
   (value-table :pointer))
 
+(defcstruct g-type-query
+  (type g-type)
+  (type-name (:string :free-from-foreign nil))
+  (class-size :uint)
+  (instance-size :uint))
+
 (defbitfield g-type-fundamental-flags
   :classed
   :instantiatable
@@ -85,6 +91,7 @@
 
 (defcstruct g-object-class
   (type-class g-type-class)
+  (construct-properties :pointer)
   (constructor :pointer)
   (set-property :pointer)
   (get-property :pointer)
@@ -92,7 +99,8 @@
   (finalize :pointer)
   (dispatch-properties-changed :pointer)
   (notify :pointer)
-  (constructed :pointer))
+  (constructed :pointer)
+  (pdummy :pointer :count 7))
 
 (defbitfield g-param-flags
   :readable