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

[pdenno]

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