[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-utilities.lisp

[Peter Denno]

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