[gtk-cffi-cvs] CVS gtk-cffi/ext

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/ext
In directory tiger.common-lisp.net:/tmp/cvs-serv28209/ext

Modified Files:
	lisp-model.lisp package.lisp 
Log Message:
Fixed examples. Changed cell properties for tree-column to be set as :attributes
Fixed double init in g-value.


--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/lisp-model.lisp	2012/08/12 17:42:29	1.6
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/lisp-model.lisp	2012/10/07 12:02:11	1.7
@@ -258,7 +258,9 @@
      (defcallback ,(symbolicate  '#:cb-init- interface) 
          :void ((class ,interface))
        ,@(loop :for (callback args) :on callbacks :by #'cddr
-            :collecting `(setf (foreign-slot-value class ',interface ',callback)
+            :collecting `(setf (foreign-slot-value class 
+                                                   '(:struct ,interface) 
+                                                   ',callback)
                                (callback ,(symbolicate '#:cb- callback)))))))
 
 (init-interface 
@@ -267,8 +269,8 @@
  get-n-columns (:int)
  get-column-type (:int (index :int))
  get-iter (:boolean (iter (object tree-iter))
-                    (path (tree-path :free-from-foreign nil)))
- get-path ((tree-path :free-to-foreign nil) (iter (object tree-iter)))
+                    (path cb-tree-path))
+ get-path (cb-tree-path (iter (object tree-iter)))
  get-value (:void (iter (object tree-iter)) (n :int)
                   (value :pointer))
  iter-next (:boolean (iter (object tree-iter)))
--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/package.lisp	2012/05/08 09:38:07	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/package.lisp	2012/10/07 12:02:11	1.5
@@ -4,14 +4,14 @@
   (:use #:common-lisp #:cffi #:alexandria #:iterate
         #:cffi-objects #:g-object-cffi #:g-lib-cffi #:gdk-cffi 
         #:gtk-cffi-utils #:gtk-cffi)
-  (:shadowing-import-from #:gtk-cffi #:image #:window)
+  (:shadowing-import-from #:gtk-cffi #:image #:window #:switch)
   (:import-from #:gtk-cffi 
                 #:tree-iter #:u1 #:stamp 
                 #:tree-model-iface #:get-n-columns #:get-column-type
                 #:get-iter #:get-path #:get-value #:iter-next #:iter-previous
                 #:iter-children #:iter-has-child #:iter-n-children #:get-flags
                 #:iter-nth-child #:iter-parent #:ref-node #:unref-node
-                #:tree-path)
+                #:tree-path #:cb-tree-path)
   (:export
    #:lisp-model
    #:implementation