X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.ffi.lisp;h=fab0916abdc3040a7d5d6763a1fde0cc8a939d4a;hb=db0d829452f27bbef68da2afd755b7accc5be5be;hp=3a319695d59c85b326d30352b646679d3e9ed074;hpb=83211c074addf8951dab479ef7f319a85136bf88;p=cl-gtk2.git

diff --git a/glib/gobject.ffi.lisp b/glib/gobject.ffi.lisp
index 3a31969..fab0916 100644
--- a/glib/gobject.ffi.lisp
+++ b/glib/gobject.ffi.lisp
@@ -966,14 +966,25 @@ Example:
   (:signal-name :string)
   (:owner-type g-type-designator)
   (:signal-flags g-signal-flags)
-  (:return-type g-type-designator)
+  (:return-type (g-type-designator :mangled-p t))
   (:n-params :uint)
-  (:param-types (:pointer g-type)))
+  (:param-types (:pointer (g-type-designator :mangled-p t))))
 
 (defcfun g-signal-query :void
   (signal-id :uint)
   (query (:pointer g-signal-query)))
 
+(defcfun g-signal-list-ids (:pointer :uint)
+  (type g-type-designator)
+  (n-ids (:pointer :uint)))
+
+(defcfun g-signal-parse-name :boolean
+  (detailed-signal :string)
+  (owner-type g-type-designator)
+  (signal-id-ptr (:pointer :uint))
+  (detail-ptr (:pointer g-quark))
+  (force-detail-quark :boolean))
+
 (defcstruct lisp-closure
   (:parent-instance g-closure)
   (:function-id :pointer))