-;;; Tree
-
-(define-foreign tree-new () tree)
-
-(define-foreign tree-append () nil
- (tree tree)
- (tree-item tree-item))
-
-(define-foreign tree-prepend () nil
- (tree tree)
- (tree-item tree-item))
-
-(define-foreign tree-insert () nil
- (tree tree)
- (tree-item tree-item)
- (position int))
-
-(define-foreign tree-remove-items () nil
- (tree tree)
- (items (double-list tree-item)))
-
-(define-foreign tree-clear-items () nil
- (tree tree)
- (start int)
- (end int))
-
-(define-foreign tree-select-item () nil
- (tree tree)
- (item int))
-
-(define-foreign tree-unselect-item () nil
- (tree tree)
- (item int))
-
-(define-foreign tree-select-child () nil
- (tree tree)
- (tree-item tree-item))
-
-(define-foreign tree-unselect-child () nil
- (tree tree)
- (tree-item tree-item))
-
-(define-foreign tree-child-position () int
- (tree tree)
- (tree-item tree-item))
-
-(defun root-tree-p (tree)
- (eq (tree-root-tree tree) tree))
-
-;; gtkglue.c
-(define-foreign tree-selection () (double-list tree-item)
- (tree tree))
-
-
-