X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.type.lisp;h=12dff51cce22341b0b03e178c639c6fc004bfe0a;hb=81e0009ee540f42c64ab1670a4fe936681fbdb6c;hp=0e1fbfbf1dc5d6f26efd6cf388e16eb7d7f40d79;hpb=0d03b82a77743d2ea5ef69bea08735fa12857d92;p=cl-gtk2.git

diff --git a/glib/gobject.type.lisp b/glib/gobject.type.lisp
index 0e1fbfb..12dff51 100644
--- a/glib/gobject.type.lisp
+++ b/glib/gobject.type.lisp
@@ -48,6 +48,7 @@
   (n-children (:pointer :uint)))
 
 (defun g-type-children (g-type)
+  (setf g-type (ensure-g-type g-type))
   (with-foreign-object (n-children :uint)
     (let ((g-types-ptr (%g-type-children g-type n-children)))
       (prog1
@@ -89,6 +90,15 @@
   (info (:pointer g-type-info))
   (flags g-type-flags))
 
+(defcfun g-type-register-static-simple g-type
+  (parent-type g-type)
+  (type-name :string)
+  (class-size :uint)
+  (class-init :pointer)
+  (instance-size :uint)
+  (instance-init :pointer)
+  (flags g-type-flags))
+
 (defcfun g-type-add-interface-static :void
   (instance-type g-type)
   (interface-type g-type)
@@ -116,4 +126,8 @@
 
 (defcfun g-closure-get-type g-type)
 
-(g-closure-get-type)
\ No newline at end of file
+(g-closure-get-type)
+
+(defcfun g-type-query :void
+  (type g-type)
+  (query (:pointer g-type-query)))
\ No newline at end of file