[gtk-cffi-cvs] CVS gtk-cffi/g-lib

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/g-lib
In directory tiger.common-lisp.net:/tmp/cvs-serv2691/g-lib

Modified Files:
	array.lisp package.lisp variant.lisp 
Log Message:
Added pack of Gtk*Buttons


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/array.lisp	2012/02/20 18:50:27	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/array.lisp	2012/07/31 17:57:11	1.8
@@ -19,3 +19,11 @@
 (defmethod free-ptr ((type g-lib-array) ptr)
   (g-free ptr))
 
+(define-foreign-type g-lib-string (cffi-objects::cffi-string)
+  ((free :initform t))
+  (:simple-parser g-lib-string)
+  (:actual-type :pointer))
+
+
+(defmethod free-ptr ((type cffi-string) ptr)
+  (g-free ptr))
\ No newline at end of file
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/package.lisp	2012/05/07 09:02:04	1.9
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/package.lisp	2012/07/31 17:57:11	1.10
@@ -37,6 +37,9 @@
 
    #:g-intern-static-string
    #:g-free
+
+   #:g-lib-array
+   #:g-lib-string
    
    #:g-file
    ))
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/variant.lisp	2012/02/12 17:29:41	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-lib/variant.lisp	2012/07/31 17:57:11	1.3
@@ -57,6 +57,6 @@
         (setf ptr
               (g-variant-parse (null-pointer) fstr (inc-pointer fstr len)
                                (null-pointer) g-error))
-        (when (null-pointer-p ptr) (error "GError: ~a" g-error)))
+        (when (null-pointer-p ptr) (error "Error in GVariant: ~a" g-error)))
       (foreign-string-free str)
       ptr)))