/[emacs]/emacs/lisp/tree-widget.el
ViewVC logotype

Diff of /emacs/lisp/tree-widget.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by dpe, Mon Sep 19 09:51:31 2005 UTC revision 1.11 by dpe, Thu Sep 22 09:54:54 2005 UTC
# Line 651  This hook should be local in the buffer Line 651  This hook should be local in the buffer
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))
# Line 701  This hook should be local in the buffer Line 703  This hook should be local in the buffer
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))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26