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