(object (make-instance 'cell-renderer-text)))
(tree-view-append-column view column)
(cell-layout-pack column name :expand nil)
(object (make-instance 'cell-renderer-text)))
(tree-view-append-column view column)
(cell-layout-pack column name :expand nil)
(multiple-value-bind (valid child-iter)
(tree-model-iter-children store iter)
;; Remove old children
(when valid
(loop while (tree-store-remove store child-iter))))
(multiple-value-bind (valid child-iter)
(tree-model-iter-children store iter)
;; Remove old children
(when valid
(loop while (tree-store-remove store child-iter))))