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