(fn (get-stable-pointer-value function-id))
(fn-result (call-with-restarts fn args)))
(when return-type
- (set-g-value return-value fn-result return-type))))
+ (set-g-value return-value fn-result return-type :g-value-init nil))))
(defun parse-closure-arguments (count-of-args args)
(loop
closure))
(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-closure handler)