;; License along with this library; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-;; $Id: gtktree.lisp,v 1.3 2004-11-21 17:57:56 espen Exp $
+;; $Id: gtktree.lisp,v 1.6 2005-02-03 23:09:09 espen Exp $
(in-package "GTK")
(cell cell-renderer)
((callback %cell-layout-data-func) pointer)
((register-callback-function function) unsigned-int)
- ((callback %destroy-user-data) pointer))
+ ((callback user-data-destroy-func) pointer))
(defbinding cell-layout-clear-attributes () nil
(cell-layout cell-layout)
(reference tree-row-reference))
-(defbinding tree-model-get-column-type () type-number
+(defbinding tree-model-get-column-type () gtype ;type-number
(tree-model tree-model)
(index int))
(column int)
(gvalue gvalue))
-(defun tree-model-get-column-value (model iter column)
+(defun tree-model-column-value (model iter column)
(let ((index (column-index model column)))
- (with-gvalue (gvalue (tree-model-get-column-type model index))
+ (with-gvalue (gvalue)
(%tree-model-get-value model iter index gvalue))))
(defbinding tree-model-iter-next () boolean
(iter tree-iter))
(defbinding tree-model-iter-nth-child
- (tree-model parent &optional (iter (make-instance 'tree-iter))) boolean
+ (tree-model parent n &optional (iter (make-instance 'tree-iter))) boolean
(tree-model tree-model)
(iter tree-iter :return)
(parent (or null tree-iter))
(let ((setter
(mkbinding (column-setter-name model)
nil (type-of model) 'tree-iter 'int
- (type-from-number (tree-model-get-column-type model index))
+; (type-from-number (tree-model-get-column-type model index))
+ (tree-model-get-column-type model index)
'int)))
#'(lambda (value iter)
(funcall setter model iter index value -1))))))))
(selection tree-selection)
((callback %tree-selection-func) pointer)
((register-callback-function function) unsigned-int)
- ((callback %destroy-user-data) pointer))
+ ((callback user-data-destroy-func) pointer))
(defbinding tree-selection-get-selected
(selection &optional (iter (make-instance 'tree-iter))) boolean
(parent (or null tree-iter))
(sibling (or null tree-iter)))
-(defun tree-store-insert-after
+(defun tree-store-insert-before
(store parent sibling &optional data (iter (make-instance 'tree-iter)))
(%tree-store-insert-before store iter parent sibling)
(when data (%tree-model-set store iter data))
(tree-view tree-view)
(tree-view-column tree-view-column))
-(defbinding tree-view-insert-column (view columnd position) int
+(defbinding tree-view-insert-column (view column position) int
(view tree-view)
(column tree-view-column)
((if (eq position :end) -1 position) int))