;ELC ;;; Compiled by proclus@darwintel on Sat Jan 19 22:12:59 2008 ;;; from file /mnt/gmirror/ports/editors/tree-widget/work/tree-widget-examples.el ;;; in Emacs version 21.2.1 ;;; with bytecomp version 1.1.1.4 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`tree-widget-examples.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\303\304!\210\305\306!\203\307\310\311\"\210\307\312\313\"\210\202'\307\310\314\"\210\307\312\315\"\210\301\207" [current-load-list tree-widget-examples-version "1.2" require tree-widget featurep xemacs defalias tree-widget-example-overlay-lists #[nil "\300 C\207" [extent-list] 1] tree-widget-example-delete-overlay delete-extent overlay-lists delete-overlay] 3) #@45 Close the current dialog. IGNORE arguments. (defalias 'tree-widget-example-close #[(&rest ignore) "\300p!\207" [kill-buffer] 2 (#$ . 1038) nil]) #@257 A simple usage of the `tree-widget'. Optional argument THEME is an image theme to use to draw the tree. It default to the global theme defined in option `tree-widget-theme'. To be prompted for a theme, use \[universal-argument] \[tree-widget-example-1]. (defalias 'tree-widget-example-1 #[(&optional theme) "\306\307!\210\310 \210\311\312 \210)\313 \314\315 @\"\210\314\315 A\"\210)\n\316 \206* \206*\317%)\320\321\322\323 \"!\210\324\325\326\311\327\330\331\332\333&\210\320\334!\210\324\335\336&\337&\340\341\342&\210\343'!\210\344 \207" [inhibit-read-only all theme name tree-widget--image-cache tree-widget-theme switch-to-buffer "*`tree-widget' example 1*" kill-all-local-variables t erase-buffer tree-widget-example-overlay-lists mapcar tree-widget-example-delete-overlay nil "default" widget-insert format "%s. \n\n" buffer-name widget-create tree-widget :open :node (push-button :tag "Root" :format "%[%t%]\n" :notify (lambda (&rest ignore) (message "This is the Root node"))) (tree-widget :tag "Node-1") (tree-widget :tag "Node-2" (tree-widget :tag "Empty-2.1") (tree-widget :tag "Node-2.2" (item :tag "Leaf-2.2.1") (item :tag "Leaf-2.2.2"))) (tree-widget :tag "Node-3" (tree-widget :tag "Empty-3.1") (item :tag "Leaf-3.2")) "\n" push-button :button-keymap :keymap :notify tree-widget-example-close "Close" use-local-map widget-setup tree-widget--theme tree-widget-button-keymap widget-keymap] 9 (#$ . 1190) (list (if current-prefix-arg (completing-read "Theme name: " '(("default" . "default") ("folder" . "folder"))) nil))]) #@73 List of name of tree nodes opened. Initially all tree nodes are closed. (defvar tree-widget-example-11-open-nodes nil (#$ . 2746)) #@63 Return non-nil if NODE-NAME is the name of an open tree node. (defalias 'tree-widget-example-11-open-p #[(node-name) " \235\207" [node-name tree-widget-example-11-open-nodes] 2 (#$ . 2883)]) #@187 Update the list of open nodes `tree-widget-example-11-open-nodes'. Called after each folding/unfolding of the `tree-widget' TREE. See also the hook `tree-widget-after-toggle-functions'. (defalias 'tree-widget-example-11-after-toggle-fcn #[(tree) "\304\305\"\304\306\" \203\307\303\n\"\202\310\n \"\211*\207" [tree open node-name tree-widget-example-11-open-nodes widget-get :node-name :open add-to-list delete] 4 (#$ . 3082)]) #@115 A simple usage of the `tree-widget'. Each node open/close state is persistent accross invocations of the command. (defalias 'tree-widget-example-11 #[nil "\304\305!\210\306 \210\307\310 \210)\311 \312\313 @\"\210\312\313 A\"\210)\314\315!\210\316\315\317\320\307$\210\321\322\323\324 \"!\210\325\326\327\330\331\332\330!\333\334\326\335\336\327\337\331\332\337!\257\326\335\340\327\341\331\332\341!\326\335\342\327\343\331\332\343!\257\326\335\344\327\345\331\332\345!\326\335\346\327\347\331\332\347!\257\326\335\350\327\351\331\332\351!\257\257 \257 \326\335\352\327\353\331\332\353!\326\335\354\327\355\331\332\355!\257\326\335\356\327\357\331\332\357!\257\257 &\n\210\321\360!\210\325\361\362\n\363\n\364\365\366&\210\367 !\210\370 \207" [inhibit-read-only all tree-widget-button-keymap widget-keymap switch-to-buffer "*`tree-widget' example 11*" kill-all-local-variables t erase-buffer tree-widget-example-overlay-lists mapcar tree-widget-example-delete-overlay make-local-hook tree-widget-after-toggle-functions add-hook tree-widget-example-11-after-toggle-fcn nil widget-insert format "%s. \n\n" buffer-name widget-create tree-widget :node-name "0" :open tree-widget-example-11-open-p :node (push-button :tag "Root" :format "%[%t%]\n" :notify (lambda (&rest ignore) (message "This is the Root node"))) :tag "Child-1" "1" "Child-2" "2" "Child-2.1" "2.1" "Child-2.2" "2.2" "Child-2.2.1" "2.2.1" "Child-2.2.2" "2.2.2" "Child-3" "3" "Child-3.1" "3.1" "Child-3.2" "3.2" "\n" push-button :button-keymap :keymap :notify tree-widget-example-close "Close" use-local-map widget-setup] 33 (#$ . 3525) nil]) #@93 Return the children definitions of WIDGET. Reuse the cached :args property value if exists. (defalias 'tree-widget-example-2-dynargs #[(widget) "\301\302\"\206\303\207" [widget widget-get :args ((tree-widget :tag "Empty-2.1") (tree-widget :tag "Node-2.2" (item :tag "Leaf-2.2.1") (item :tag "Leaf-2.2.2")))] 3 (#$ . 5143)]) #@61 A simple usage of the `tree-widget' with dynamic expansion. (defalias 'tree-widget-example-2 #[nil "\304\305!\210\306 \210\307\310 \210)\311 \312\313 @\"\210\312\313 A\"\210)\314\315\316\317 \"!\210\320\321\322\307\323\324\325\326\327&\210\314\330!\210\320\331\332\n\333\n\334\335\336&\210\337 !\210\340 \207" [inhibit-read-only all tree-widget-button-keymap widget-keymap switch-to-buffer "*`tree-widget' example 2*" kill-all-local-variables t erase-buffer tree-widget-example-overlay-lists mapcar tree-widget-example-delete-overlay widget-insert format "%s. \n\n" buffer-name widget-create tree-widget :open :node (push-button :tag "Root" :format "%[%t%]\n" :notify (lambda (&rest ignore) (message "This is the Root node"))) (tree-widget :tag "Node-1") (tree-widget :tag "Node-2" :dynargs tree-widget-example-2-dynargs :has-children t) (tree-widget :tag "Node-3" (tree-widget :tag "Empty-3.1") (item :tag "Leaf-3.2")) "\n" push-button :button-keymap :keymap :notify tree-widget-example-close "Close" use-local-map widget-setup] 9 (#$ . 5476) nil]) (provide 'tree-widget-example)