(at-init () (%g-type-init))
-(defcfun (g-type-name "g_type_name") :string
- "Returns the name of a GType.@see{g-type-from-name}
-
-Example:
-@pre{
-\(g-type-from-name \"GtkLabel\")
-=> 7151952
-\(g-type-name 7151952)
-=> \"GtkLabel\"
-}
-@arg[type]{GType designator (see @class{g-type-designator})}
-@return{a string}"
- (type g-type-designator))
-
-(defcfun (g-type-from-name "g_type_from_name") g-type
- "Returns the numeric identifier of a GType by its name. @see{g-type-name}
-
-Example:
-@pre{
-\(g-type-from-name \"GtkLabel\")
-=> 7151952
-\(g-type-name 7151952)
-=> \"GtkLabel\"
-}
-@arg[name]{a string - name of GType}
-@return{an integer}"
- (name :string))
-
(defcfun g-type-parent g-type-designator
"Returns the parent of a GType. @see{g-type-chilren}
(: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)))
-(defcstruct lisp-closure
- (:parent-instance g-closure)
- (:function-id :pointer))
+(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 g-object-struct
(:type-instance g-type-instance)