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

[CVS User rklochkov]

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

Modified Files:
	g-object.lisp 
Log Message:
Fixed bug: now when one needs to free returned value after processing
(for example, color, font, structure), she or he may add " :free t" flag to
the foreign typename

Finished GtkTextView and GtkTextTag



--- /project/gtk-cffi/cvsroot/gtk-cffi/g-object/g-object.lisp	2011/09/10 16:26:10	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-object/g-object.lisp	2011/09/18 18:10:47	1.6
@@ -263,9 +263,18 @@
                                        &allow-other-keys)
   (setf-init g-object signals properties))
            
-       
-(defcfun ("g_object_ref" ref) :pointer (obj pobject))
-(defcfun ("g_object_unref" unref) :void (obj pobject))
+
+(defcfun g-object-ref :pointer (obj pobject))
+(defcfun g-object-unref :void (obj pobject))
+
+(defgeneric ref (obj)
+  (:method ((obj g-object))
+    (g-object-ref ref)))
+
+(defgeneric unref (obj)
+  (:method ((obj g-object))
+    (g-object-unref ref)))
+
 (defcfun g-object-new :pointer (class-type g-type) (null :pointer))
 
 (defun new (id)