Include fields from GtkTreeViewColumn in generating.lisp
authorDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Mon, 16 Mar 2009 14:03:46 +0000 (17:03 +0300)
committerDmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Mon, 16 Mar 2009 14:03:46 +0000 (17:03 +0300)
generating.lisp

index d44ffaf..b6dff32 100644 (file)
@@ -1,5 +1,5 @@
 (defpackage :gtk-generation
-  (:use :cl :gobject :cffi)
+  (:use :cl :gobject :cffi :glib)
   (:export #:gtk-generate))
 
 (in-package :gtk-generation)
@@ -66,4 +66,9 @@
                 "GtkTreeSelection" "GtkTreeStore" "GtkUIManager" "GtkWindowGroup")
      :flags '("GtkTextSearchFlags")
      :enums '("GtkTextBufferTargetInfo")
-     :exclusions '("PangoStretch" "PangoVariant" "PangoStyle" "PangoUnderline"))))
\ No newline at end of file
+     :exclusions '("PangoStretch" "PangoVariant" "PangoStyle" "PangoUnderline")
+     :additional-properties
+     '(("GtkTreeViewColumn"
+        (:cffi gtk::tree-view gtk::tree-view-column-tree-view g-object "gtk_tree_view_column_get_tree_view" nil)
+        (:cffi gtk::sort-column-id gtk::tree-view-column-sort-column-id :int "gtk_tree_view_column_get_sort_column_id" "gtk_tree_view_column_set_sort_column_id")
+        (:cffi gtk::cell-renderers gtk::tree-view-column-cell-renderers (glist g-object  :free-from-foreign t) "gtk_tree_view_column_get_cell_renderers" nil))))))
\ No newline at end of file