From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 14 Oct 2009 19:56:04 +0000 (+0400)
Subject: Add GtkTreeSortable vtable
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=10f80fc9d1404cd451160086301a8ff69bfec38a;p=cl-gtk2.git

Add GtkTreeSortable vtable
---

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 8b6b6f5..abb4235 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -24,6 +24,17 @@
   (ref-node :void (tree-model g-object) (iter (g-boxed-foreign tree-iter)))
   (unref-node :void (tree-model g-object) (iter (g-boxed-foreign tree-iter))))
 
+(define-vtable ("GtkTreeSortable" tree-sortable)
+  (:skip parent-instance g-type-interface)
+  ;; signal
+  (:skip sort-columns-changed :pointer)
+  ;; methods
+  (get-sort-column-id :boolean (sortable (g-object tree-sortable)) (sort-column-id (:pointer :int)) (order (:pointer sort-type)))
+  (set-sort-column-id :void (sortable (g-object tree-sortable)) (sort-column-id :int) (order sort-type))
+  (set-sort-func :void (sortable (g-object tree-sortable)) (sort-column-id :int) (func :pointer) (data :pointer) (destroy-notify :pointer))
+  (set-default-sort-func :void (sortable (g-object tree-sortable)) (func :pointer) (data :pointer) (destroy-notify :pointer))
+  (has-default-sort-func :boolean (sortable (g-object tree-sortable))))
+
 ; TODO: GtkTreeSortable
 
 ; TODO: GtkTreeModelSort