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

[pdenno]

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

Modified Files:
	layout.lisp 
Log Message:
uffi --> cffi

--- /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp	2006/02/16 18:15:47	1.7
+++ /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp	2006/02/19 20:11:45	1.8
@@ -217,10 +217,10 @@
        (:bottom 3)
        (t 2)))))
 
-(defun notebook-contains-page-p (notebook widget &aux (wid (pointer-address (id widget))))
+(defun notebook-contains-page-p (notebook widget &aux (wid (cffi:pointer-address (id widget))))
   (loop for i from 1 to (gtk-notebook-get-n-pages (id notebook))
 	for page = (gtk-notebook-get-nth-page (id notebook) (1- i))
-	when (= wid (pointer-address page)) return t))
+	when (= wid (cffi:pointer-address page)) return t))
 
 (def-c-output show-page ((self notebook))
   (when (and new-value (>= new-value 0) (< new-value (length (kids self))))