X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.gvalue.lisp;h=4162ee79dfc9877bde2c69a92b9da1b13f409766;hb=af90ac5cff9dbb5f44677cc4726eee60ab88bc5d;hp=22b1b0488a921255985885c4646f212a16426255;hpb=cd440c2da2459c9458201828d3f2ccdbf114e4f8;p=cl-gtk2.git

diff --git a/glib/gobject.gvalue.lisp b/glib/gobject.gvalue.lisp
index 22b1b04..4162ee7 100644
--- a/glib/gobject.gvalue.lisp
+++ b/glib/gobject.gvalue.lisp
@@ -1,10 +1,17 @@
 (in-package :gobject)
 
 (defcfun g-value-init (:pointer g-value)
+  "Initializes the GValue @code{value} with the default value of @code{type}
+
+@arg[value]{a C pointer to the GValue structure}
+@arg[type]{an integer specifying the GType}"
   (value (:pointer g-value))
   (type g-type))
 
 (defun g-value-zero (g-value)
+  "Initializes the GValue in \"unset\" state.
+
+@arg[g-value]{a C pointer to the GValue structure}"
   (loop
      for i from 0 below (foreign-type-size 'g-value)
      do (setf (mem-ref g-value :uchar i) 0)))
@@ -17,6 +24,9 @@
   (value (:pointer g-value)))
 
 (defcfun g-value-unset (:pointer g-value)
+  "Clears the current value in @code{value} and \"unsets\" the type, releasing all resources associated with this GValue. An unset value is the same as an unitialized GValue.
+
+@arg[value]{a C pointer to the GValue structure}"
   (value (:pointer g-value)))
 
 (defcfun g-value-set-instance :void