Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv10004/gtk-ffi

Modified Files: gtk-utilities.lisp Log Message: non-printing characters in cut-and-paste of Andras's patch Date: Sun Feb 13 19:21:29 2005 Author: pdenno

Index: root/gtk-ffi/gtk-utilities.lisp diff -u root/gtk-ffi/gtk-utilities.lisp:1.10 root/gtk-ffi/gtk-utilities.lisp:1.11 --- root/gtk-ffi/gtk-utilities.lisp:1.10 Sun Feb 13 18:28:02 2005 +++ root/gtk-ffi/gtk-utilities.lisp Sun Feb 13 19:21:29 2005 @@ -190,11 +190,11 @@ (with-foreign-object (item :pointer-void) (gtk-tree-model-get model iter column-no item -1)  #-(or lispworks cmu allegro) (cast item (as-gtk-type-name cell-type)) -   #+allegro -   (case cell-type -     (:string (uffi:convert-from-cstring (uffi:deref-pointer item :cstring))) -     (t (cast item (as-gtk-type-name cell-type)))) - #+lispworks + #+allegro + (case cell-type + (:string (uffi:convert-from-cstring (uffi:deref-pointer item :cstring))) + (t (cast item (as-gtk-type-name cell-type)))) + #+lispworks (case cell-type (:string (fli:convert-from-foreign-string (fli:dereference item))) (t (fli:dereference item)))