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

[pdenno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory clnet:/tmp/cvs-serv2195/root/gtk-ffi

Modified Files:
	gtk-utilities.lisp 
Log Message:
Marco's patch http://common-lisp.net/pipermail/cells-gtk-devel/2006-May/000171.html

--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp	2006/02/19 20:18:27	1.19
+++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp	2006/06/01 14:18:22	1.20
@@ -88,7 +88,7 @@
     (when (or (eql (event-type event) :button_press)
               (eql (event-type event) :button_release))
       (when (= (gdk-event-button-button signal) 3)
-        (gtk-menu-popup widget nil nil nil nil 3
+        (gtk-menu-popup widget +c-null+ +c-null+ +c-null+ +c-null+ 3
 			(gdk-event-button-time signal)))))
   0)
 
@@ -264,7 +264,7 @@
 (defun gtk-file-chooser-get-filenames-strs (file-chooser)
   (let ((glist (gtk-file-chooser-get-filenames file-chooser)))
     (loop for lst-address = glist then (cffi:foreign-slot-value lst-address 'gslist 'next)
-        while (and lst-address (not (zerop lst-address)))
+        while (and lst-address (not (cffi:null-pointer-p lst-address)))
         collect (cffi:foreign-slot-value lst-address 'gslist 'data)
         finally (g-slist-free glist))))