Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-menu.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: Pulldown and popup menus for the OO-Browser. 4 ;; SUMMARY: Pulldown and popup menus for the OO-Browser.
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: 27-Oct-93 at 21:13:36 11 ;; ORIG-DATE: 27-Oct-93 at 21:13:36
12 ;; LAST-MOD: 21-Feb-97 at 16:58:26 by Bob Weiner 12 ;; LAST-MOD: 22-Oct-95 at 00:41:44 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1994, 1995, 1997 Free Software Foundation, Inc. 14 ;; Copyright (C) 1994, 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:
34 ["Manual" (id-info "(oo-browser.info)Top") t] 34 ["Manual" (id-info "(oo-browser.info)Top") t]
35 ["Version" br-version t] 35 ["Version" br-version t]
36 "----" 36 "----"
37 ["Compose-Mail-to-List" 37 ["Compose-Mail-to-List"
38 (progn (br-quit) 38 (progn (br-quit)
39 (mail nil "oo-browser@infodock.com" 39 (mail nil "oo-browser@hub.ucsb.edu"
40 "Replace this line with a descriptive sentence.") 40 "Replace this line with a descriptive sentence.")
41 (goto-char (point-min)) 41 (goto-char (point-min))
42 (search-forward "Subject: " nil t)) t] 42 (search-forward "Subject: " nil t)) t]
43 ["Mail-List-Request" 43 ["Mail-List-Request"
44 (progn (br-quit) 44 (progn (br-quit)
45 (mail nil "oo-browser-request@infodock.com") 45 (mail nil "oo-browser-request@hub.ucsb.edu")
46 (insert "The subject line of this message will not be used.\n" 46 (insert "Use a subject line like one of the following:\n"
47 "Remove everything in the body of this message except one\n" 47 " Subject: Subscribe <joe@any.com> (Joe Williams).\n"
48 "or more lines of the following form:\n\n" 48 " Subject: Unsubscribe <joe@any.com>.\n")
49 " subscribe oo-browser [<your-email-address>]\n" 49 (goto-char (point-min))
50 " or\n" 50 (search-forward "Subject: " nil t)) t]
51 " unsubscribe oo-browser [<your-email-address>]\n\n"
52 "For example: subscribe oo-browser joe@nowhere.gov\n"))
53 t]
54 "----" 51 "----"
55 ["Reinitialize" br-refresh t] 52 ["Reinitialize" br-refresh t]
56 ["Exit-Temporarily" (id-tool-quit '(br-quit)) t] 53 ["Exit-Temporarily" (id-tool-quit '(br-quit)) t]
57 ["Quit" (id-tool-quit '(br-quit t)) t] 54 ["Quit" (id-tool-quit '(br-quit t)) t]
58 ) 55 )
128 ["Widen-by-10" br-resize-widen t] 125 ["Widen-by-10" br-resize-widen t]
129 ) 126 )
130 ("Options" 127 ("Options"
131 ["Keep-Viewed-Classes" br-toggle-keep-viewed 128 ["Keep-Viewed-Classes" br-toggle-keep-viewed
132 :style toggle :selected br-keep-viewed-classes] 129 :style toggle :selected br-keep-viewed-classes]
133 ["Graphical-Add-Features" br-tree-features-toggle 130 ["Graphical-Show-Features" br-tree-features-toggle
134 :style toggle :selected br-show-features] 131 :style toggle :selected br-show-features]
135 ["Show-Inherited-Features"
136 (setq br-inherited-features-flag
137 (not br-inherited-features-flag))
138 :style toggle :selected br-inherited-features-flag]
139 ) 132 )
140 ("View-Window" 133 ("View-Window"
141 ["Full-Frame" br-view-full-frame t] 134 ["Full-Frame" br-view-full-frame t]
142 ["Kill-Buffer" br-kill t] 135 ["Kill-Buffer" br-kill t]
143 ["Move-To-or-From" br-to-from-viewer t] 136 ["Move-To-or-From" br-to-from-viewer t]
154 ["Manual" (id-info "(oo-browser.info)Top") t] 147 ["Manual" (id-info "(oo-browser.info)Top") t]
155 ["Version" br-version t] 148 ["Version" br-version t]
156 "----" 149 "----"
157 ["Compose-Mail-to-List" 150 ["Compose-Mail-to-List"
158 (progn (br-quit) 151 (progn (br-quit)
159 (mail nil "oo-browser@infodock.com" 152 (mail nil "oo-browser@hub.ucsb.edu"
160 "Replace this line with a descriptive sentence.") 153 "Replace this line with a descriptive sentence.")
161 (goto-char (point-min)) 154 (goto-char (point-min))
162 (search-forward "Subject: " nil t)) t] 155 (search-forward "Subject: " nil t)) t]
163 ["Mail-List-Request" 156 ["Mail-List-Request"
164 (progn (br-quit) 157 (progn (br-quit)
165 (mail nil "oo-browser-request@infodock.com") 158 (mail nil "oo-browser-request@hub.ucsb.edu")
166 (insert "The subject line of this message will not be used.\n" 159 (insert "Use a subject line like one of the following:\n"
167 "Remove everything in the body of this message except one\n" 160 " Subject: Subscribe <joe@any.com> (Joe Williams).\n"
168 "or more lines of the following form:\n\n" 161 " Subject: Unsubscribe <joe@any.com>.\n")
169 " subscribe oo-browser [<your-email-address>]\n" 162 (goto-char (point-min))
170 " or\n" 163 (search-forward "Subject: " nil t)) t]
171 " unsubscribe oo-browser [<your-email-address>]\n\n"
172 "For example: subscribe oo-browser joe@nowhere.gov\n"))
173 t]
174 "----" 164 "----"
175 ("Class" 165 ("Class"
176 ["Edit-Current" br-edit-entry t] 166 ["Edit-Current" br-edit-entry t]
177 ["Edit-Named" br-find t] 167 ["Edit-Named" br-find t]
178 ["View-Current" br-view-entry t] 168 ["View-Current" br-view-entry t]
242 ["Widen-by-10" br-resize-widen t] 232 ["Widen-by-10" br-resize-widen t]
243 ) 233 )
244 ("Options" 234 ("Options"
245 ["Keep-Viewed-Classes" br-toggle-keep-viewed 235 ["Keep-Viewed-Classes" br-toggle-keep-viewed
246 :style toggle :selected br-keep-viewed-classes] 236 :style toggle :selected br-keep-viewed-classes]
247 ["Graphical-Add-Features" br-tree-features-toggle 237 ["Graphical-Show-Features" br-tree-features-toggle
248 :style toggle :selected br-show-features] 238 :style toggle :selected br-show-features]
249 ["Show-Inherited-Features"
250 (setq br-inherited-features-flag
251 (not br-inherited-features-flag))
252 :style toggle :selected br-inherited-features-flag]
253 ) 239 )
254 ("View-Window" 240 ("View-Window"
255 ["Full-Frame" br-view-full-frame t] 241 ["Full-Frame" br-view-full-frame t]
256 ["Kill-Buffer" br-kill t] 242 ["Kill-Buffer" br-kill t]
257 ["Move-To-or-From" br-to-from-viewer t] 243 ["Move-To-or-From" br-to-from-viewer t]