[cells-gtk-cvs] CVS root/cells-gtk

[pdenno]

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory common-lisp:/tmp/cvs-serv31035/root/cells-gtk

Modified Files:
	textview.lisp 
Log Message:
Replaced hello-c:ff-defun-callable with cffi:defcallback

--- /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp	2006/01/03 19:01:20	1.6
+++ /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp	2006/02/11 03:37:13	1.7
@@ -69,8 +69,8 @@
            when (eql type :menu-item)
            collect `(funcall #'make-instance 'populate-adds , at args))))
 
-(ff-defun-callable :cdecl :void text-view-populate-popup-handler
-  ((widget :pointer-void) (signal :pointer-void) (data :pointer-void))
+(cffi:defcallback text-view-populate-popup-handler :void
+                  ((widget :pointer) (signal :pointer) (data :pointer))
   (let ((popup-menu (gtk-adds-text-view-popup-menu widget)))
     (bwhen (text-view (gtk-object-find widget))
       (bwhen (cb (callback-recover text-view :populate-popup))
@@ -81,7 +81,7 @@
   (when new-value
       (callback-register self :populate-popup (populate-popup-closure (reverse new-value) self))
       (gtk-signal-connect (id self) "populate-popup"
-                          (ffx:ff-register-callable 'text-view-populate-popup-handler))))
+                          (cffi:get-callback 'text-view-populate-popup-handler))))
 
 (defun populate-popup-closure (p-adds text-view)
   (let (accum)