Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv5703/root/gtk-ffi
Modified Files: gtk-utilities.lisp Log Message: Applied patches from Andras Simon
--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp 2006/06/01 14:18:22 1.20 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp 2006/06/07 17:02:06 1.21 @@ -210,7 +210,7 @@ (ecase col-type ((:string :icon) (get-gtk-string - (cffi:make-pointer (cffi:mem-aref buffer :pointer 0) :cstring))) + (cffi:make-pointer (cffi:mem-aref buffer :pointer 0)))) (:boolean (not (zerop (cffi:mem-aref buffer :unsigned-char 0)))) (:date (cffi:mem-aref buffer :FLOAT 0)) (:int (cffi:mem-aref buffer :int 0)) @@ -268,15 +268,4 @@ collect (cffi:foreign-slot-value lst-address 'gslist 'data) finally (g-slist-free glist))))
-(eval-when (compile load eval) - (export '(gtk-signal-connect gtk-signal-connect-swap gtk-object-set-property - with-gtk-string get-gtk-string to-gtk-string - with-gdk-threads make-gtk-tree-iter with-tree-iter - gtk-widget-set-popup gvi - gtk-list-store-new gtk-list-store-set gtk-list-store-set-items - gtk-tree-store-new gtk-tree-store-set gtk-tree-store-set-kids - gtk-tree-model-get-cell - gtk-tree-view-render-cell - gtk-file-chooser-get-filenames-strs - )))