[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-serv1995/ext

Modified Files:
	lisp-model.lisp package.lisp 
Log Message:
Fixed gtk-ext


--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/lisp-model.lisp	2012/10/07 12:02:11	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/lisp-model.lisp	2012/12/31 13:55:22	1.8
@@ -259,7 +259,7 @@
          :void ((class ,interface))
        ,@(loop :for (callback args) :on callbacks :by #'cddr
             :collecting `(setf (foreign-slot-value class 
-                                                   '(:struct ,interface) 
+                                                   ',interface ; :struct
                                                    ',callback)
                                (callback ,(symbolicate '#:cb- callback)))))))
 
@@ -269,8 +269,8 @@
  get-n-columns (:int)
  get-column-type (:int (index :int))
  get-iter (:boolean (iter (object tree-iter))
-                    (path cb-tree-path))
- get-path (cb-tree-path (iter (object tree-iter)))
+                    (path ptree-path))
+ get-path (ptree-path (iter (object tree-iter)))
  get-value (:void (iter (object tree-iter)) (n :int)
                   (value :pointer))
  iter-next (:boolean (iter (object tree-iter)))
@@ -306,7 +306,7 @@
                   (g-type-register-static-simple
                    #.(keyword->g-type :object)
                    (g-intern-static-string "GtkLispModel")
-                   (foreign-type-size 'g-object-class)
+                   (foreign-type-size 'g-object-class-struct)
                    (callback cb-lisp-model-class-init)
                    (foreign-type-size 'g-object)
                    (callback cb-lisp-model-init)
--- /project/gtk-cffi/cvsroot/gtk-cffi/ext/package.lisp	2012/10/07 12:02:11	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/ext/package.lisp	2012/12/31 13:55:22	1.6
@@ -11,7 +11,7 @@
                 #: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 #:cb-tree-path)
+                #:tree-path #:ptree-path)
   (:export
    #:lisp-model
    #:implementation