projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added some docstrings and changed exports
[cl-gtk2.git]
/
glib
/
gobject.gvalue.lisp
diff --git
a/glib/gobject.gvalue.lisp
b/glib/gobject.gvalue.lisp
index
22b1b04
..
4162ee7
100644
(file)
--- a/
glib/gobject.gvalue.lisp
+++ b/
glib/gobject.gvalue.lisp
@@
-1,10
+1,17
@@
(in-package :gobject)
(defcfun g-value-init (:pointer g-value)
(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)
(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)))
(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)
(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
(value (:pointer g-value)))
(defcfun g-value-set-instance :void