From mmommer at common-lisp.net Mon May 16 08:28:15 2005 From: mmommer at common-lisp.net (Mario Mommer) Date: Mon, 16 May 2005 10:28:15 +0200 (CEST) Subject: [lgtk-cvs] CVS update: lgtk/src/gtklisp.lisp Message-ID: <20050516082815.73DA9880DF@common-lisp.net> Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv26692 Modified Files: gtklisp.lisp Log Message: Removed redundant copy of g-signal-connect Date: Mon May 16 10:28:14 2005 Author: mmommer Index: lgtk/src/gtklisp.lisp diff -u lgtk/src/gtklisp.lisp:1.9 lgtk/src/gtklisp.lisp:1.10 --- lgtk/src/gtklisp.lisp:1.9 Thu Nov 25 23:11:17 2004 +++ lgtk/src/gtklisp.lisp Mon May 16 10:28:14 2005 @@ -48,32 +48,6 @@ (debugf t "Tacked callback id ~A to widget ~a for ~s.~%" (id it) wid (marker signal)))) -(defun g-signal-connect (wid signal func &key data (flags :g-connect-none)) -;; the data argument is a keyword arg because we do not need to fake -;; closures. - (declare (optimize (debug 3))) - (let* ((rw (contents wid)) - (it (make-instance 'gtk-object-callback - :object wid - :func func - :data data - :nexus *gtkcallbacks*)) - (meta (meta wid))) - - (setf (contents it) - (gtk-aliens::|g_signal_connect_data| - rw (marker signal) (trampoline signal) (id it) - nil (gconnectflags flags))) - - (if (eql signal gtkdestroy) - (pushnew (meta it) (destroyers meta)) - (pushnew (meta it) (callbacks meta))) - - (gcconnect it wid) - - (debugf t "Tacked callback id ~A to widget ~a for ~s.~%" - (id it) wid (marker signal)))) - (defun glade-xml-signal-connect (wid signal-name func &key data) ;; the data argument is a keyword arg because we do not need to fake