From 10f80fc9d1404cd451160086301a8ff69bfec38a Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Wed, 14 Oct 2009 23:56:04 +0400 Subject: [PATCH] Add GtkTreeSortable vtable --- gtk/gtk.tree-model.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) 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 -- 1.7.10.4