Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-tree.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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: InfoDock Associates 9 ;; ORG: Motorola Inc.
10 ;; 10 ;;
11 ;; ORIG-DATE: 12-Oct-90 11 ;; ORIG-DATE: 12-Oct-90
12 ;; LAST-MOD: 20-Feb-97 at 07:01:02 by Bob Weiner 12 ;; LAST-MOD: 5-Jun-95 at 12:00:10 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1990-1995, 1997 Free Software Foundation, Inc. 14 ;; Copyright (C) 1990-1995 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 ;;; ************************************************************************