651 |
(widget-put tree :node (widget-convert node)) |
(widget-put tree :node (widget-convert node)) |
652 |
;; Create the icon widget for the expanded tree. |
;; Create the icon widget for the expanded tree. |
653 |
(push (widget-create-child-and-convert |
(push (widget-create-child-and-convert |
654 |
tree (widget-get tree (if args :open-icon :empty-icon))) |
tree (widget-get tree (if args :open-icon :empty-icon)) |
655 |
|
;; Pass the node widget to child. |
656 |
|
:node (widget-get tree :node)) |
657 |
buttons) |
buttons) |
658 |
;; Create the tree node widget. |
;; Create the tree node widget. |
659 |
(push (widget-create-child tree (widget-get tree :node)) |
(push (widget-create-child tree (widget-get tree :node)) |
703 |
(widget-put tree :node (widget-convert node)) |
(widget-put tree :node (widget-convert node)) |
704 |
;; Create the icon widget for the collapsed tree. |
;; Create the icon widget for the collapsed tree. |
705 |
(push (widget-create-child-and-convert |
(push (widget-create-child-and-convert |
706 |
tree (widget-get tree :close-icon)) |
tree (widget-get tree :close-icon) |
707 |
|
;; Pass the node widget to child. |
708 |
|
:node (widget-get tree :node)) |
709 |
buttons) |
buttons) |
710 |
;; Create the tree node widget. |
;; Create the tree node widget. |
711 |
(push (widget-create-child tree (widget-get tree :node)) |
(push (widget-create-child tree (widget-get tree :node)) |