X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.signals.lisp;fp=glib%2Fgobject.signals.lisp;h=394280cef8451b6ad868b1b9af2021ba2cb0285e;hb=af90ac5cff9dbb5f44677cc4726eee60ab88bc5d;hp=83436fef7c5c99f815ea8de733a92e0764565198;hpb=cd440c2da2459c9458201828d3f2ccdbf114e4f8;p=cl-gtk2.git

diff --git a/glib/gobject.signals.lisp b/glib/gobject.signals.lisp
index 83436fe..394280c 100644
--- a/glib/gobject.signals.lisp
+++ b/glib/gobject.signals.lisp
@@ -36,6 +36,11 @@
   (logxor type (ldb (byte 1 0) type)));;subtract the G_SIGNAL_TYPE_STATIC_SCOPE
 
 (defun emit-signal (object signal-name &rest args)
+  "Emits the signal.
+@arg[object]{an instance of @class{g-object}. Signal is emitted on this object}
+@arg[signal-name]{a string specifying the signal}
+@arg[args]{arguments for the signal}
+@return{none}"
   (let ((signal-id (g-signal-lookup signal-name (g-type-from-object (pointer object)))))
     (when (= signal-id 0)
       (error "Signal ~A not found on object ~A" signal-name object))