Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Use gtk-tree-view-append-column

  • Loading branch information...
commit 4306b18e80fdfeb41a9a1452e2121ac147105f91 1 parent e8af474
@Ramarren authored
Showing with 4 additions and 1 deletion.
  1. +1 −1  cells-gtk/tree-view.lisp
  2. +3 −0  gtk-ffi/gtk-list-tree.lisp
View
2  cells-gtk/tree-view.lisp
@@ -395,7 +395,7 @@
(:boolean (gtk-signal-connect renderer "toggled" (cffi:get-callback 'tree-view-edit-cell-callback-boolean)))))
(gtk-tree-view-column-set-sort-column-id (id col) (or (sort-column-id col)
pos))
- (gtk-tree-view-insert-column (id self) (id col) pos))))
+ (gtk-tree-view-append-column (id self) (id col)))))
(def-object tree-view-column ()
((title :accessor title :initarg :title :initform nil)
View
3  gtk-ffi/gtk-list-tree.lisp
@@ -58,6 +58,9 @@
(model :pointer)))
(gtk-tree-view-get-model :pointer
((tree-view :pointer)))
+ (gtk-tree-view-append-column gint
+ ((tree-view :pointer)
+ (column :pointer)))
(gtk-tree-view-insert-column gint
((tree-view
:pointer)
Please sign in to comment.
Something went wrong with that request. Please try again.