From 65670fe56ad7852b8bd81eb595a623aae3fdc1f3 Mon Sep 17 00:00:00 2001 Message-Id: <65670fe56ad7852b8bd81eb595a623aae3fdc1f3.1714501564.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 14 Feb 2005 00:41:54 +0000 Subject: [PATCH] Removed unused code, added generic functions Organization: Straylight/Edgeware From: espen --- glib/gcallback.lisp | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/glib/gcallback.lisp b/glib/gcallback.lisp index 15d3b94..879f692 100644 --- a/glib/gcallback.lisp +++ b/glib/gcallback.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gcallback.lisp,v 1.20 2005-02-04 00:15:24 espen Exp $ +;; $Id: gcallback.lisp,v 1.21 2005-02-14 00:41:54 espen Exp $ (in-package "GLIB") @@ -252,6 +252,8 @@ (defun make-callback-closure (function) (callback user-data-destroy-func)) callback-id))) +(defgeneric create-callback-function (gobject function arg1)) + (defmethod create-callback-function ((gobject gobject) function arg1) (cond ((or (eq arg1 t) (eq arg1 gobject)) function) @@ -260,6 +262,8 @@ (defmethod create-callback-function ((gobject gobject) function arg1) (t #'(lambda (&rest args) (apply function arg1 (rest args)))))) +(defgeneric signal-connect (gobject signal function &key)) + (defmethod signal-connect ((gobject gobject) signal function &key (detail 0) after object remove) "Connects a callback function to a signal for a particular object. If @@ -343,18 +347,6 @@ (defun signal-emit (object signal &rest args) (apply #'signal-emit-with-detail object signal 0 args)) -;;; Message logging - -;; TODO: define and signal conditions based on log-level - -;; (defcallback log-handler (nil (domain (copy-of string)) -;; (log-level int) -;; (message (copy-of string))) -;; (error "~A: ~A" domain message)) - -;; (setf (extern-alien "log_handler" system-area-pointer) (callback log-handler)) - - ;;;; Convenient macros (defmacro def-callback-marshal (name (return-type &rest args)) -- [mdw]