[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-serv3681/g-object

Modified Files:
	defslots.lisp package.lisp 
Log Message:
Finished TextBuffer support



--- /project/gtk-cffi/cvsroot/gtk-cffi/g-object/defslots.lisp	2011/09/21 12:03:47	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-object/defslots.lisp	2011/10/23 08:39:53	1.6
@@ -126,7 +126,9 @@
            , at body)
        (free ,(or for-free name)))))
 
-(defvar *cb-foreach*)
+(defvar *callback* nil
+  "Lisp callback for use in gtk methods, that need callback function")
+
 (defgeneric foreach (class func &optional data)
   (:documentation "For each element in CLASS execute FUNC"))
 (defmacro make-foreach (class &rest params)
@@ -136,9 +138,9 @@
      (defcfun ,gtk-name :void
        (,class pobject) (func pfunction) (data (pdata :free t)))
      (defcallback ,cb-name :void ,params ;((tag pobject) (data pdata))
-       (funcall *cb-foreach* ,@(mapcar #'car params)))
+       (funcall *callback* ,@(mapcar #'car params)))
      (defmethod foreach ((,class ,class) func &optional data)
        (if (functionp func)
-           (let ((*cb-foreach* func))
+           (let ((*callback* func))
              (,gtk-name ,class (callback ,cb-name) data))
            (,gtk-name ,class func data))))))
--- /project/gtk-cffi/cvsroot/gtk-cffi/g-object/package.lisp	2011/09/21 12:03:47	1.6
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-object/package.lisp	2011/10/23 08:39:53	1.7
@@ -17,6 +17,7 @@
    ;; slots
    #:signals
    #:property
+   #:properties
    #:gsignal
    
    #:connect
@@ -87,5 +88,6 @@
    #:defgtkfuns
    #:defgdkfuns
 
+   #:*callback*
    #:foreach
    #:make-foreach))