finish tree-path and tree-row-reference bindings

diff --git a/api.ods b/api.ods
index 240c6b9..9fdf1b6 100644 (file)
Binary files a/api.ods and b/api.ods differ

diff --git a/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml b/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml
index a1cc1f5..08f60e0 100644 (file)
--- a/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml
+++ b/bugs/issue-63c3a59fe7aee4e4fcae00d98e34ba5c720fa5ae.yaml
@@ -5,8 +5,8 @@ type: :task
 component: cl-gtk2
 release: "0.1"
 reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
-status: :unstarted
-disposition: 
+status: :closed
+disposition: :fixed
 creation_time: 2009-10-01 20:09:17.851799 Z
 references: []
 
@@ -16,3 +16,7 @@ log_events:
   - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
   - created
   - ""
+- - 2009-10-08 21:22:19.363096 Z
+  - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+  - closed with disposition fixed
+  - ""

diff --git a/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml b/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml
index 2761b35..821cc76 100644 (file)
--- a/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml
+++ b/bugs/issue-88756a6cd1cd743ffaecede0345087107030e3a5.yaml
@@ -5,8 +5,8 @@ type: :task
 component: cl-gtk2
 release: "0.1"
 reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
-status: :unstarted
-disposition: 
+status: :closed
+disposition: :fixed
 creation_time: 2009-10-01 20:07:26.739035 Z
 references: []
 
@@ -16,3 +16,7 @@ log_events:
   - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
   - created
   - ""
+- - 2009-10-08 20:16:17.401738 Z
+  - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+  - closed with disposition fixed
+  - ""

diff --git a/bugs/issue-cf07ca46a08df70101af93054bc68d4dd7b6fe5a.yaml b/bugs/issue-cf07ca46a08df70101af93054bc68d4dd7b6fe5a.yaml
new file mode 100644 (file)
index 0000000..37ecddb
--- /dev/null
+++ b/bugs/issue-cf07ca46a08df70101af93054bc68d4dd7b6fe5a.yaml
@@ -0,0 +1,18 @@
+--- !ditz.rubyforge.org,2008-03-06/issue 
+title: Make metaobject protocol for GBoxed instead of macros
+desc: ""
+type: :task
+component: cl-gtk2
+release: 
+reporter: Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+status: :unstarted
+disposition: 
+creation_time: 2009-10-08 20:02:45.858289 Z
+references: []
+
+id: cf07ca46a08df70101af93054bc68d4dd7b6fe5a
+log_events: 
+- - 2009-10-08 20:02:46.506306 Z
+  - Kalyanov Dmitry <Kalyanov.Dmitry@gmail.com>
+  - created
+  - ""

diff --git a/gtk/gtk.objects.lisp b/gtk/gtk.objects.lisp
index 5dc5980..c106f69 100644 (file)
--- a/gtk/gtk.objects.lisp
+++ b/gtk/gtk.objects.lisp
@@ -76,6 +76,67 @@
 (export 'tree-path)
 (export 'tree-path-indices)
 
+(defcfun (tree-path-compare "gtk_tree_path_compare") :int
+  (tree-path-1 (g-boxed-foreign tree-path))
+  (tree-path-2 (g-boxed-foreign tree-path)))
+
+(export 'tree-path-compare)
+
+(defcfun (tree-path-next "gtk_tree_path_next") :void
+  (tree-path (g-boxed-foreign tree-path)))
+
+(export 'tree-path-next)
+
+(defcfun (tree-path-prev "gtk_tree_path_prev") :void
+  (tree-path (g-boxed-foreign tree-path)))
+
+(export 'tree-path-prev)
+
+(defcfun (tree-path-up "gtk_tree_path_up") :boolean
+  (tree-path (g-boxed-foreign tree-path)))
+
+(export 'tree-path-up)
+
+(defcfun (tree-path-down "gtk_tree_path_down") :void
+  (tree-path (g-boxed-foreign tree-path)))
+
+(export 'tree-path-down)
+
+(defcfun (tree-path-is-ancestor "gtk_tree_path_is_ancestor") :boolean
+  (tree-path (g-boxed-foreign tree-path))
+  (descendant (g-boxed-foreign tree-path)))
+
+(export 'tree-path-is-ancestor)
+
+(defcfun (tree-path-is-descendant "gtk_tree_path_is_descendant") :boolean
+  (tree-path (g-boxed-foreign tree-path))
+  (ancestor (g-boxed-foreign tree-path)))
+
+(export 'tree-path-is-descendant)
+
+(at-init () (gobject::type-initializer-call "gtk_tree_row_reference_get_type"))
+
+(define-g-boxed-opaque tree-row-reference "GtkTreeRowReference" :alloc (lambda () (error "")))
+
+(export 'tree-row-reference)
+
+(defcfun (tree-row-reference-new "gtk_tree_row_reference_new") (g-boxed-foreign tree-row-reference :return)
+  (model (g-object tree-model))
+  (path (g-boxed-foreign tree-path)))
+
+(export 'tree-row-reference)
+
+(define-boxed-opaque-accessor tree-row-reference tree-row-reference-model
+  :reader "gtk_tree_row_reference_get_model" :type (g-object tree-model))
+
+(define-boxed-opaque-accessor tree-row-reference tree-row-reference-path
+  :reader "gtk_tree_row_reference_get_path" :type (g-boxed-foreign tree-path :return))
+
+(define-boxed-opaque-accessor tree-row-reference tree-row-reference-valid
+  :reader "gtk_tree_row_reference_valid" :type :boolean)
+
+(export '(tree-row-reference-model tree-row-reference-path tree-row-reference-valid))
+
 (define-g-enum "PangoWrapMode" pango-wrap-mode
     (:export t :type-initializer
              "pango_wrap_mode_get_type")