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

Modified Files:
	atom.lisp pango.lisp rectangle.lisp 
Log Message:
Synced with current version of CFFI


--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/atom.lisp	2012/02/12 17:29:41	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/atom.lisp	2012/08/12 17:42:30	1.3
@@ -8,7 +8,8 @@
 (in-package :gdk-cffi)
 
 (defcfun gdk-atom-name :string (atom :pointer))
-(defcfun gdk-atom-intern-static-string :pointer (val (pstring :free :none)))
+(defcfun gdk-atom-intern-static-string :pointer 
+  (val (:string :free-to-foreign nil)))
 (defcfun gdk-atom-intern :pointer (val :string) (only-if-exists :boolean))
 
 (define-foreign-type gatom ()
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/pango.lisp	2012/02/20 16:51:37	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/pango.lisp	2012/08/12 17:42:30	1.8
@@ -97,10 +97,8 @@
 
 (define-foreign-type tab-array (freeable)
   ()
-  (:actual-type :pointer))
-
-(define-parse-method tab-array (&key free)
-  (make-instance 'tab-array :free free))
+  (:actual-type :pointer)
+  (:simple-parser tab-array))
 
 ;; We need to pass positions-in-pixels (boolean) and list of tab-stops
 ;; in lisp it is handy to represent as (pixels {tab-stop}*), where
@@ -316,7 +314,7 @@
 (defcfun pango-attr-shape-new attr-shape (ink rect-list) (logical rect-list))
                
 (define-foreign-type attr-list (freeable)
-  ((free :initform t))
+  ((free-from-foreign :initform t))
   (:simple-parser attr-list)
   (:actual-type :pointer))
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/rectangle.lisp	2012/01/25 19:15:08	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/rectangle.lisp	2012/08/12 17:42:30	1.5
@@ -1,6 +1,6 @@
 (in-package :gdk-cffi)
 
-(defclass rectangle (object)
+(defclass rectangle (struct)
   ())
 
 (defmethod new-struct ((class (eql 'rectangle)))