Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv30673
Modified Files: gtklisp.lisp Log Message: bug fix
Date: Thu Nov 25 23:11:17 2004 Author: mmommer
Index: lgtk/src/gtklisp.lisp diff -u lgtk/src/gtklisp.lisp:1.8 lgtk/src/gtklisp.lisp:1.9 --- lgtk/src/gtklisp.lisp:1.8 Thu Nov 25 22:06:55 2004 +++ lgtk/src/gtklisp.lisp Thu Nov 25 23:11:17 2004 @@ -91,14 +91,14 @@ (gtk-aliens::|glade_xml_signal_connect_data| rw signal-name (c-fun-ptr gtk-standard-decoy) (id it)))
- (if (eql signal gtkdestroy) + '(if (eql signal gtkdestroy) (pushnew (meta it) (destroyers meta)) (pushnew (meta it) (callbacks meta)))
(gcconnect it wid)
(debugf t "Tacked (glade) callback id ~A to widget ~a for ~s.~%" - (id it) wid (marker signal)))) + (id it) wid signal-name)))
(defun g-signal-connect-swapped (wid signal func &key data (flags :g-connect-none))