Add at-init calls to define-g-enum and define-g-flags; fix the at-init implementation...

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

diff --git a/glib/gobject.type.lisp b/glib/gobject.type.lisp
index 0e1fbfb..f72b125 100644 (file)
--- a/glib/gobject.type.lisp
+++ b/glib/gobject.type.lisp
@@ -5,15 +5,27 @@
 
 (defcfun (%g-type-init "g_type_init") :void)
 
-(%g-type-init)
+(at-init () (%g-type-init))
 
 (defcfun (g-type-name "g_type_name") :string
+  "Returns the GType name
+
+@arg[type]{an integer specifying the GType}
+@return{a string - name of type}"
   (type g-type))
 
 (defcfun (g-type-from-name "g_type_from_name") g-type
+  "Looks up the GType by its name
+
+@arg[name]{a string naming the type}
+@return{an integer specifying GType}"
   (name :string))
 
 (defcfun g-type-parent g-type
+  "Returns the parent of a GType
+
+@arg[type]{an integer specifying the GType}
+@return{an integer specifying the parent GType}"
   (type g-type))
 
 (defcfun g-type-depth :uint
@@ -48,6 +60,10 @@
   (n-children (:pointer :uint)))
 
 (defun g-type-children (g-type)
+  "Returns the list of types inherited from @code{g-type}.
+
+@arg[g-type]{an integer or a string specifying 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 +105,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)
@@ -99,6 +124,10 @@
   (prerequisite-type g-type))
 
 (defun g-type-from-object (object)
+  "Returns the GType of an @code{object}
+
+@arg[object]{C pointer to an object}
+@return{an integer specifying the GType}"
   (g-type-from-instance object))
 
 (defun g-type-from-class (g-class)
@@ -116,4 +145,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