Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-tree.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
4 ;; SUMMARY: Interface between textual and graphical OO-Browsers. 4 ;; SUMMARY: Interface between textual and graphical OO-Browsers.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: mouse, oop, tools 6 ;; KEYWORDS: mouse, oop, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 12-Oct-90 11 ;; ORIG-DATE: 12-Oct-90
12 ;; LAST-MOD: 5-Jun-95 at 12:00:10 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 07:01:02 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1990-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1990-1995, 1997 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
104 (t (beep) 104 (t (beep)
105 (message 105 (message
106 (format "(OO-Browser): Illegal command: %s" cmd))))) 106 (format "(OO-Browser): Illegal command: %s" cmd)))))
107 107
108 (defun br-tree-features-toggle () 108 (defun br-tree-features-toggle ()
109 "Toggle between showing and hiding features when 'br-tree' is invoked to display descendants graphically." 109 "Toggle between showing and hiding features when `br-tree' is invoked to display descendants graphically."
110 (interactive) 110 (interactive)
111 (setq br-show-features (not br-show-features)) 111 (setq br-show-features (not br-show-features))
112 (message "New graphical OO-Browsers will %sshow features." 112 (message "New graphical OO-Browsers will %sshow features."
113 (if br-show-features "" "not "))) 113 (if br-show-features "" "not ")))
114 114
115 (defun br-tree-kill () 115 (defun br-tree-kill ()
116 "Kill all current 'Tree' sub-processes." 116 "Kill all current `Tree' sub-processes."
117 (interactive) 117 (interactive)
118 (if (br-kill-process-group br-tree-name br-tree-num 118 (if (br-kill-process-group br-tree-name br-tree-num
119 "Tree displays") 119 "Tree displays")
120 (setq br-tree-num 0))) 120 (setq br-tree-num 0)))
121 121
222 class-list)))) 222 class-list))))
223 (if (= indent 0) (setq br-tmp-class-set nil))) 223 (if (= indent 0) (setq br-tmp-class-set nil)))
224 224
225 (defun br-tree-build-features (c expand-subtree indent offset) 225 (defun br-tree-build-features (c expand-subtree indent offset)
226 "Each language under which this function is called must define its own 226 "Each language under which this function is called must define its own
227 version of 'br-list-features' and 'br-feature-signature-to-name'." 227 version of `br-list-features' and `br-feature-signature-to-name'."
228 (let ((features) (ch)) 228 (let ((features) (ch))
229 (and expand-subtree 229 (and expand-subtree
230 (setq features 230 (setq features
231 (mapcar 231 (mapcar
232 (function 232 (function
279 (match-end 4)) 279 (match-end 4))
280 br-cmd-str nil) 280 br-cmd-str nil)
281 (br-tree-do-cmd br-lang-px br-env-nm 281 (br-tree-do-cmd br-lang-px br-env-nm
282 br-cmd-nm br-node-nm)) 282 br-cmd-nm br-node-nm))
283 (beep) 283 (beep)
284 (message "'%s': invalid command from graphical browser" 284 (message "`%s': invalid command from graphical browser"
285 br-cmd-str) 285 br-cmd-str)
286 (setq br-cmd-str nil))))) 286 (setq br-cmd-str nil)))))
287 287
288 288
289 ;;; ************************************************************************ 289 ;;; ************************************************************************