[lgtk-cvs] CVS update: lgtk/src/gtklisp.lisp
Mario Mommer
mmommer at common-lisp.net
Sat Dec 13 11:10:17 UTC 2003
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))
More information about the Lgtk-cvs
mailing list