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
