-
-(defun g-signal-connect (object signal handler &key after)
- "Deprecated alias for @fun{connect-signal}"
- (connect-signal object signal handler :after after))
-
-(defun connect-signal (object signal handler &key after)
- "Connects the function to a signal for a particular object.
-If @code{after} is true, then the function will be called after the default handler of the signal.
-
-@arg[object]{an instance of @class{gobject}}
-@arg[signal]{a string; names the signal}
-@arg[handler]{a function; handles the signal. Number (and type) of arguments and return value type depends on the signal}
-@arg[after]{a boolean}"
- (g-signal-connect-closure (ensure-object-pointer object)
- signal
- (create-g-closure handler)
- after))
-
-(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* ((object-type (g-type-from-object (pointer object)))
- (signal-info (parse-signal-name object-type signal-name)))
- (unless signal-info
- (error "Signal ~A not found on object ~A" signal-name object))
- (let ((params-count (length (signal-info-param-types signal-info))))
- (with-foreign-object (params 'g-value (1+ params-count))
- (set-g-value (mem-aref params 'g-value 0) object object-type :zero-g-value t)
- (iter (for i from 0 below params-count)
- (for arg in args)
- (for type in (signal-info-param-types signal-info))
- (set-g-value (mem-aref params 'g-value (1+ i)) arg type :zero-g-value t))
- (prog1
- (if (g-type= (signal-info-return-type signal-info) +g-type-void+)
- (g-signal-emitv params (signal-info-id signal-info) signal-name (null-pointer))
- (with-foreign-object (return-value 'g-value)
- (g-value-zero return-value)
- (g-value-init return-value (signal-info-return-type signal-info))
- (prog1 (parse-g-value return-value)
- (g-value-unset return-value))))
- (iter (for i from 0 below (1+ params-count))
- (g-value-unset (mem-aref params 'g-value i))))))))