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