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