Move foreign library loading to gobject.init.lisp; separated gobject.type-info packag...

[cl-gtk2.git] / glib / gobject.foreign-closures.lisp

diff --git a/glib/gobject.foreign-closures.lisp b/glib/gobject.foreign-closures.lisp
index bed6d45..ee1ab44 100644 (file)
--- a/glib/gobject.foreign-closures.lisp
+++ b/glib/gobject.foreign-closures.lisp
@@ -9,6 +9,11 @@
   (declare (ignore data))
   (finalize-lisp-closure closure))
 
+(defun call-with-restarts (fn args)
+  (restart-case
+      (apply fn args)
+    (return-from-g-closure (&optional v) :report "Return value from closure" v)))
+
 (defcallback lisp-closure-marshal :void ((closure (:pointer lisp-closure))
                                          (return-value (:pointer g-value))
                                          (count-of-args :uint)
@@ -21,9 +26,9 @@
          (return-type (and (not (null-pointer-p return-value))
                            (gvalue-type return-value)))
          (fn (get-stable-pointer-value function-id))
-         (fn-result (apply fn args)))
+         (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
@@ -41,6 +46,17 @@
     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)