[gtk-cffi-cvs] CVS gtk-cffi/gdk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gdk
In directory tiger.common-lisp.net:/tmp/cvs-serv14447/gdk

Modified Files:
	color.lisp 
Log Message:
Added GtkSwitch GtkEntryCompletion GtkEntryBuffer


--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/color.lisp	2012/03/08 09:58:11	1.6
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/color.lisp	2012/08/18 13:55:27	1.7
@@ -7,13 +7,15 @@
   (green :int16)
   (blue :int16))
 
-(defcfun gdk-color-parse :boolean (str :string) (color color-struct))
-(defcfun gdk-color-to-string :string (color color-struct))
+(defcfun gdk-color-parse :boolean (str :string) 
+         (color (:pointer (:struct color-struct))))
+(defcfun gdk-color-to-string :string 
+  (color (:pointer (:struct color-struct))))
 (defcfun gdk-color-free :void (color :pointer))
 
 (define-foreign-type color-cffi (freeable)
   ()
-  (:actual-type color-struct)
+  (:actual-type :pointer)
   (:simple-parser pcolor))
 
 (defmethod free-ptr ((class color-cffi) ptr)
@@ -21,7 +23,7 @@
 
 (defmethod translate-to-foreign (value (type color-cffi))
   (if (pointerp value) value
-    (let ((color-st (foreign-alloc 'color-struct)))
+    (let ((color-st (foreign-alloc '(:struct color-struct))))
       (gdk-color-parse (string value) color-st)
       color-st)))
 
@@ -40,7 +42,7 @@
 
 (define-foreign-type rgba-cffi (freeable)
   ()
-  (:actual-type rgba-struct)
+  (:actual-type :pointer)
   (:simple-parser prgba))
 
 (defcfun gdk-rgba-parse :boolean (color rgba-struct) (str :string))