X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.structs.lisp;h=175dcd2b2feb49f764d909184ff617a98b73892c;hb=47516440728fc4f0a8a91ff930f74abf8d9c67d2;hp=0be250332c60e27bfd22f819b4465ea670c12d68;hpb=0d03b82a77743d2ea5ef69bea08735fa12857d92;p=cl-gtk2.git

diff --git a/glib/gobject.structs.lisp b/glib/gobject.structs.lisp
index 0be2503..175dcd2 100644
--- 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
@@ -83,8 +89,11 @@
   (ref-count :uint)
   (data :pointer))
 
+(defctype %g-initially-unowned %g-object)
+
 (defcstruct g-object-class
   (type-class g-type-class)
+  (construct-properties :pointer)
   (constructor :pointer)
   (set-property :pointer)
   (get-property :pointer)
@@ -92,7 +101,8 @@
   (finalize :pointer)
   (dispatch-properties-changed :pointer)
   (notify :pointer)
-  (constructed :pointer))
+  (constructed :pointer)
+  (pdummy :pointer :count 7))
 
 (defbitfield g-param-flags
   :readable