[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-serv24265/gdk

Modified Files:
	atom.lisp color.lisp package.lisp pixbuf.lisp 
Log Message:
Changed from cffi to cffi-objects
Dropped GTK-STRING



--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/atom.lisp	2011/08/28 10:32:37	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/atom.lisp	2012/02/12 17:29:41	1.2
@@ -8,7 +8,7 @@
 (in-package :gdk-cffi)
 
 (defcfun gdk-atom-name :string (atom :pointer))
-(defcfun gdk-atom-intern-static-string :pointer (val gtk-dyn-string))
+(defcfun gdk-atom-intern-static-string :pointer (val (pstring :free :none)))
 (defcfun gdk-atom-intern :pointer (val :string) (only-if-exists :boolean))
 
 (define-foreign-type gatom ()
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/color.lisp	2012/01/25 19:15:08	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/color.lisp	2012/02/12 17:29:41	1.5
@@ -7,8 +7,8 @@
   (green :int16)
   (blue :int16))
 
-(defcfun "gdk_color_parse" :boolean (str gtk-string) (color color-struct))
-(defcfun "gdk_color_to_string" gtk-string (color color-struct))
+(defcfun "gdk_color_parse" :boolean (str :string) (color color-struct))
+(defcfun "gdk_color_to_string" :string (color color-struct))
 (defcfun gdk-color-free :void (color :pointer))
 
 (define-foreign-type color-cffi (freeable)
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/package.lisp	2012/01/25 19:15:08	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/package.lisp	2012/02/12 17:29:41	1.8
@@ -9,7 +9,7 @@
 
 (defpackage #:gdk-cffi
   (:use #:common-lisp #:alexandria
-        #:cffi #:cffi-object #:g-lib-cffi #:g-object-cffi)
+        #:cffi-objects #:g-lib-cffi #:g-object-cffi)
   (:import-from #:cl-cairo2 #:x #:y #:width #:height #:cairo_rectangle_t)
   (:export
    ; types
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/pixbuf.lisp	2011/08/26 17:16:14	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/pixbuf.lisp	2012/02/12 17:29:41	1.3
@@ -7,10 +7,10 @@
   (bits-per-sample :int) (width :int) (height :int))
 
 (defcfun "gdk_pixbuf_new_from_file" :pointer
-  (filename gtk-string) (gerror pobject))
+  (filename :string) (gerror pobject))
 
 (defcfun "gdk_pixbuf_new_from_file_at_scale" :pointer
-  (filename gtk-string) (width :int) (height :int)
+  (filename :string) (width :int) (height :int)
   (preserve-aspect :boolean) (gerror pobject))
 
 (defcfun "gdk_pixbuf_new_subpixbuf" :pointer