Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv27263

Modified Files: gtklisp.lisp Log Message: More Glade goodies

Date: Thu Nov 25 22:06:56 2004 Author: mmommer

Index: lgtk/src/gtklisp.lisp diff -u lgtk/src/gtklisp.lisp:1.7 lgtk/src/gtklisp.lisp:1.8 --- lgtk/src/gtklisp.lisp:1.7 Thu Nov 25 21:21:55 2004 +++ lgtk/src/gtklisp.lisp Thu Nov 25 22:06:55 2004 @@ -74,7 +74,7 @@ (debugf t "Tacked callback id ~A to widget ~a for ~s.~%" (id it) wid (marker signal))))

-(defun glade-xml-signal-connect (wid signal func +(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 ;; closures. @@ -89,7 +89,7 @@

(setf (contents it) (gtk-aliens::|glade_xml_signal_connect_data| - rw (marker signal) (trampoline signal) (id it))) + rw signal-name (c-fun-ptr gtk-standard-decoy) (id it)))

(if (eql signal gtkdestroy) (pushnew (meta it) (destroyers meta))