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

[Mario Mommer]

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

Modified Files:
	gtklisp.lisp 
Log Message:
Added correct selector for callback address.

Date: Sat Dec 13 06:10:17 2003
Author: mmommer

Index: lgtk/src/gtklisp.lisp
diff -u lgtk/src/gtklisp.lisp:1.5 lgtk/src/gtklisp.lisp:1.6
--- lgtk/src/gtklisp.lisp:1.5	Thu Dec 11 05:48:00 2003
+++ lgtk/src/gtklisp.lisp	Sat Dec 13 06:10:17 2003
@@ -67,7 +67,7 @@
 			   :func func)))
     (setf (contents it)
 	  (gtk-aliens::|gtk_timeout_add| msecs
-				 (callback %gtk-itc-handler)
+				 (c-fun-ptr %gtk-itc-handler)
 				(id it)))
 
     it))
@@ -81,7 +81,7 @@
 			   :data data
 			   :func func)))
     (setf (contents it)
-	  (gtk-aliens::|gtk_idle_add| (callback %gtk-itc-handler)
+	  (gtk-aliens::|gtk_idle_add| (c-fun-ptr %gtk-itc-handler)
 			      (id it)))
 
     it))