[lgtk-cvs] CVS update: lgtk/src/gtklisp.lisp

[Mario Mommer]

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