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

[Mario Mommer]

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))