Mercurial > emacs
annotate lisp/tool-bar.el @ 98660:90b078ed2dc4
(grep-mode-tool-bar-map): Check if tool-bar-map has been initialized
before setting it up.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 12 Oct 2008 13:46:13 +0000 |
parents | 3e7bd62df13a |
children | 1b6dc3613e69 |
rev | line source |
---|---|
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
1 ;;; tool-bar.el --- setting up the tool bar |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
2 ;; |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, |
79721 | 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
5 ;; |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
6 ;; Author: Dave Love <fx@gnu.org> |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
7 ;; Keywords: mouse frames |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
8 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
10 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
15 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
20 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
23 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
24 ;;; Commentary: |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
25 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
26 ;; Provides `tool-bar-mode' to control display of the tool-bar and |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
27 ;; bindings for the global tool bar with convenience functions |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
28 ;; `tool-bar-add-item' and `tool-bar-add-item-from-menu'. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
29 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
30 ;; The normal global binding for [tool-bar] (below) uses the value of |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
31 ;; `tool-bar-map' as the actual keymap to define the tool bar. Modes |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
32 ;; may either bind items under the [tool-bar] prefix key of the local |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
33 ;; map to add to the global bar or may set `tool-bar-map' |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
34 ;; buffer-locally to override it. (Some items are removed from the |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
35 ;; global bar in modes which have `special' as their `mode-class' |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
36 ;; property.) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
37 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
38 ;; Todo: Somehow make tool bars easily customizable by the naive? |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
39 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
40 ;;; Code: |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
41 |
66494
b9971215f644
(tool-bar-mode): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
66168
diff
changeset
|
42 ;; The autoload cookie doesn't work when preloading. |
b9971215f644
(tool-bar-mode): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
66168
diff
changeset
|
43 ;; Deleting it means invoking this command won't work |
b9971215f644
(tool-bar-mode): Delete autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
66168
diff
changeset
|
44 ;; when you are on a tty. I hope that won't cause too much trouble -- rms. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
45 (define-minor-mode tool-bar-mode |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
46 "Toggle use of the tool bar. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
47 With numeric ARG, display the tool bar if and only if ARG is positive. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
48 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
49 See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
50 conveniently adding tool bar items." |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
51 :init-value nil |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
52 :global t |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
53 :group 'mouse |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
54 :group 'frames |
98594
b40f8a9232b9
(tool-bar-mode): Only change tool-bar-lines on graphical terminals.
Chong Yidong <cyd@stupidchicken.com>
parents:
97947
diff
changeset
|
55 (if tool-bar-mode |
b40f8a9232b9
(tool-bar-mode): Only change tool-bar-lines on graphical terminals.
Chong Yidong <cyd@stupidchicken.com>
parents:
97947
diff
changeset
|
56 (progn |
b40f8a9232b9
(tool-bar-mode): Only change tool-bar-lines on graphical terminals.
Chong Yidong <cyd@stupidchicken.com>
parents:
97947
diff
changeset
|
57 (dolist (frame (frame-list)) |
b40f8a9232b9
(tool-bar-mode): Only change tool-bar-lines on graphical terminals.
Chong Yidong <cyd@stupidchicken.com>
parents:
97947
diff
changeset
|
58 (if (display-graphic-p frame) |
b40f8a9232b9
(tool-bar-mode): Only change tool-bar-lines on graphical terminals.
Chong Yidong <cyd@stupidchicken.com>
parents:
97947
diff
changeset
|
59 (set-frame-parameter frame 'tool-bar-lines 1))) |
98658
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
60 (if (= 1 (length (default-value 'tool-bar-map))) ; not yet setup |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
61 (tool-bar-setup))) |
98594
b40f8a9232b9
(tool-bar-mode): Only change tool-bar-lines on graphical terminals.
Chong Yidong <cyd@stupidchicken.com>
parents:
97947
diff
changeset
|
62 (modify-all-frames-parameters (list (cons 'tool-bar-lines 0))))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
63 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
64 ;;;###autoload |
83497
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
65 ;; Used in the Show/Hide menu, to have the toggle reflect the current frame. |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
66 (defun toggle-tool-bar-mode-from-frame (&optional arg) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
67 "Toggle tool bar on or off, based on the status of the current frame. |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
68 See `tool-bar-mode' for more information." |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
69 (interactive (list (or current-prefix-arg 'toggle))) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
70 (if (eq arg 'toggle) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
71 (tool-bar-mode (if (> (frame-parameter nil 'tool-bar-lines) 0) 0 1)) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
72 (tool-bar-mode arg))) |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
73 |
a25bb5ef27bf
Fix tool-bar and menu-bar toggles in Show/Hide menu to reflect the state of the current frame.
Karoly Lorentey <lorentey@elte.hu>
parents:
83496
diff
changeset
|
74 ;;;###autoload |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
75 ;; We want to pretend the toolbar by standard is on, as this will make |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
76 ;; customize consider disabling the toolbar a customization, and save |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
77 ;; that. We could do this for real by setting :init-value above, but |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
78 ;; that would turn on the toolbar in MS Windows where it is currently |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
79 ;; useless, and it would overwrite disabling the tool bar from X |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
80 ;; resources. If anyone want to implement this in a cleaner way, |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
81 ;; please do so. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
82 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-21. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
83 (put 'tool-bar-mode 'standard-value '(t)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
84 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
85 (defvar tool-bar-map (make-sparse-keymap) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
86 "Keymap for the tool bar. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
87 Define this locally to override the global tool bar.") |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
88 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
89 (global-set-key [tool-bar] |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
90 '(menu-item "tool bar" ignore |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
91 :filter tool-bar-make-keymap)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
92 |
95841
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94899
diff
changeset
|
93 (declare-function image-mask-p "image.c" (spec &optional frame)) |
b4e36ff621b3
Add some compiler declarations, for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
94899
diff
changeset
|
94 |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
95 (defun tool-bar-make-keymap (&optional ignore) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
96 "Generate an actual keymap from `tool-bar-map'. |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
97 Its main job is to figure out which images to use based on the display's |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
98 color capability and based on the available image libraries." |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
99 (mapcar (lambda (bind) |
94897
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
100 (let (image-exp plist) |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
101 (when (and (eq (car-safe (cdr-safe bind)) 'menu-item) |
94897
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
102 ;; For the format of menu-items, see node |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
103 ;; `Extended Menu Items' in the Elisp manual. |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
104 (setq plist (nthcdr (if (consp (nth 4 bind)) 5 4) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
105 bind)) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
106 (setq image-exp (plist-get plist :image)) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
107 (consp image-exp) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
108 (not (eq (car image-exp) 'image)) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
109 (fboundp (car image-exp))) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
110 (if (not (display-images-p)) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
111 (setq bind nil) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
112 (let ((image (eval image-exp))) |
94899
29fb4d52c079
(tool-bar-make-keymap): Additional minor fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
94897
diff
changeset
|
113 (unless (and image (image-mask-p image)) |
94897
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
114 (setq image (append image '(:mask heuristic)))) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
115 (setq bind (copy-sequence bind) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
116 plist (nthcdr (if (consp (nth 4 bind)) 5 4) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
117 bind)) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
118 (plist-put plist :image image)))) |
f23487dcd0a8
(tool-bar-make-keymap): Account for the optional KEY-BINDING-DATA
Chong Yidong <cyd@stupidchicken.com>
parents:
94727
diff
changeset
|
119 bind)) |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
120 tool-bar-map)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
121 |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
122 (defconst tool-bar-find-image-cache (make-hash-table :weakness t :test 'equal)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
123 |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
124 (defun tool-bar-find-image (specs) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
125 "Like `find-image' but with caching." |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
126 (or (gethash specs tool-bar-find-image-cache) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
127 (puthash specs (find-image specs) tool-bar-find-image-cache))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
128 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
129 ;;;###autoload |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
130 (defun tool-bar-add-item (icon def key &rest props) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
131 "Add an item to the tool bar. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
132 ICON names the image, DEF is the key definition and KEY is a symbol |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
133 for the fake function key in the menu keymap. Remaining arguments |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
134 PROPS are additional items to add to the menu item specification. See |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
135 Info node `(elisp)Tool Bar'. Items are added from left to right. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
136 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
137 ICON is the base name of a file containing the image to use. The |
80756
76e75acf7e4e
Fix typos (sync from the trunk).
Juanma Barranquero <lekktu@gmail.com>
parents:
79721
diff
changeset
|
138 function will first try to use low-color/ICON.xpm if `display-color-cells' |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
139 is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
140 ICON.xbm, using `find-image'. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
141 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
142 Use this function only to make bindings in the global value of `tool-bar-map'. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
143 To define items in any other map, use `tool-bar-local-item'." |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
144 (apply 'tool-bar-local-item icon def key tool-bar-map props)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
145 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
146 ;;;###autoload |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
147 (defun tool-bar-local-item (icon def key map &rest props) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
148 "Add an item to the tool bar in map MAP. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
149 ICON names the image, DEF is the key definition and KEY is a symbol |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
150 for the fake function key in the menu keymap. Remaining arguments |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
151 PROPS are additional items to add to the menu item specification. See |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
152 Info node `(elisp)Tool Bar'. Items are added from left to right. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
153 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
154 ICON is the base name of a file containing the image to use. The |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
155 function will first try to use low-color/ICON.xpm if `display-color-cells' |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
156 is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
157 ICON.xbm, using `find-image'." |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
158 (let* ((fg (face-attribute 'tool-bar :foreground)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
159 (bg (face-attribute 'tool-bar :background)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
160 (colors (nconc (if (eq fg 'unspecified) nil (list :foreground fg)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
161 (if (eq bg 'unspecified) nil (list :background bg)))) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
162 (xpm-spec (list :type 'xpm :file (concat icon ".xpm"))) |
98624
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
163 (xpm-lo-spec (list :type 'xpm :file |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
164 (concat "low-color/" icon ".xpm"))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
165 (pbm-spec (append (list :type 'pbm :file |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
166 (concat icon ".pbm")) colors)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
167 (xbm-spec (append (list :type 'xbm :file |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
168 (concat icon ".xbm")) colors)) |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
169 (image-exp `(tool-bar-find-image |
98624
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
170 (cond ((not (display-color-p)) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
171 ',(list pbm-spec xbm-spec xpm-lo-spec xpm-spec)) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
172 ((< (display-color-cells) 256) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
173 ',(list xpm-lo-spec xpm-spec pbm-spec xbm-spec)) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
174 (t |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
175 ',(list xpm-spec pbm-spec xbm-spec)))))) |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
176 (define-key-after map (vector key) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
177 `(menu-item ,(symbol-name key) ,def :image ,image-exp ,@props)))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
178 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
179 ;;;###autoload |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
180 (defun tool-bar-add-item-from-menu (command icon &optional map &rest props) |
66512
759df5a9dc3e
(tool-bar-add-item-from-menu)
Nick Roberts <nickrob@snap.net.nz>
parents:
66494
diff
changeset
|
181 "Define tool bar binding for COMMAND in keymap MAP using the given ICON. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
182 This makes a binding for COMMAND in `tool-bar-map', copying its |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
183 binding from the menu bar in MAP (which defaults to `global-map'), but |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
184 modifies the binding by adding an image specification for ICON. It |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
185 finds ICON just like `tool-bar-add-item'. PROPS are additional |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
186 properties to add to the binding. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
187 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
188 MAP must contain appropriate binding for `[menu-bar]' which holds a keymap. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
189 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
190 Use this function only to make bindings in the global value of `tool-bar-map'. |
66512
759df5a9dc3e
(tool-bar-add-item-from-menu)
Nick Roberts <nickrob@snap.net.nz>
parents:
66494
diff
changeset
|
191 To define items in any other map, use `tool-bar-local-item-from-menu'." |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
192 (apply 'tool-bar-local-item-from-menu command icon |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
193 (default-value 'tool-bar-map) map props)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
194 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
195 ;;;###autoload |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
196 (defun tool-bar-local-item-from-menu (command icon in-map &optional from-map &rest props) |
66512
759df5a9dc3e
(tool-bar-add-item-from-menu)
Nick Roberts <nickrob@snap.net.nz>
parents:
66494
diff
changeset
|
197 "Define local tool bar binding for COMMAND using the given ICON. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
198 This makes a binding for COMMAND in IN-MAP, copying its binding from |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
199 the menu bar in FROM-MAP (which defaults to `global-map'), but |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
200 modifies the binding by adding an image specification for ICON. It |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
201 finds ICON just like `tool-bar-add-item'. PROPS are additional |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
202 properties to add to the binding. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
203 |
66512
759df5a9dc3e
(tool-bar-add-item-from-menu)
Nick Roberts <nickrob@snap.net.nz>
parents:
66494
diff
changeset
|
204 FROM-MAP must contain appropriate binding for `[menu-bar]' which |
759df5a9dc3e
(tool-bar-add-item-from-menu)
Nick Roberts <nickrob@snap.net.nz>
parents:
66494
diff
changeset
|
205 holds a keymap." |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
206 (unless from-map |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
207 (setq from-map global-map)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
208 (let* ((menu-bar-map (lookup-key from-map [menu-bar])) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
209 (keys (where-is-internal command menu-bar-map)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
210 (fg (face-attribute 'tool-bar :foreground)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
211 (bg (face-attribute 'tool-bar :background)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
212 (colors (nconc (if (eq fg 'unspecified) nil (list :foreground fg)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
213 (if (eq bg 'unspecified) nil (list :background bg)))) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
214 (xpm-spec (list :type 'xpm :file (concat icon ".xpm"))) |
98624
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
215 (xpm-lo-spec (list :type 'xpm :file |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
216 (concat "low-color/" icon ".xpm"))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
217 (pbm-spec (append (list :type 'pbm :file |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
218 (concat icon ".pbm")) colors)) |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
219 (xbm-spec (append (list :type 'xbm :file |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
220 (concat icon ".xbm")) colors)) |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
221 (image-exp `(tool-bar-find-image |
98624
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
222 (cond ((not (display-color-p)) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
223 ',(list pbm-spec xbm-spec xpm-lo-spec xpm-spec)) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
224 ((< (display-color-cells) 256) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
225 ',(list xpm-lo-spec xpm-spec pbm-spec xbm-spec)) |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
226 (t |
14621c767c96
(tool-bar-local-item)
Chong Yidong <cyd@stupidchicken.com>
parents:
98594
diff
changeset
|
227 ',(list xpm-spec pbm-spec xbm-spec))))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
228 submap key) |
94727
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
229 ;; We'll pick up the last valid entry in the list of keys if |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
230 ;; there's more than one. |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
231 (dolist (k keys) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
232 ;; We're looking for a binding of the command in a submap of |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
233 ;; the menu bar map, so the key sequence must be two or more |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
234 ;; long. |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
235 (if (and (vectorp k) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
236 (> (length k) 1)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
237 (let ((m (lookup-key menu-bar-map (substring k 0 -1))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
238 ;; Last element in the bound key sequence: |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
239 (kk (aref k (1- (length k))))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
240 (if (and (keymapp m) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
241 (symbolp kk)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
242 (setq submap m |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
243 key kk))))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
244 (when (and (symbolp submap) (boundp submap)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
245 (setq submap (eval submap))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
246 (let ((defn (assq key (cdr submap)))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
247 (if (eq (cadr defn) 'menu-item) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
248 (define-key-after in-map (vector key) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
249 (append (cdr defn) (list :image image-exp) props)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
250 (setq defn (cdr defn)) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
251 (define-key-after in-map (vector key) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
252 (let ((rest (cdr defn))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
253 ;; If the rest of the definition starts |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
254 ;; with a list of menu cache info, get rid of that. |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
255 (if (and (consp rest) (consp (car rest))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
256 (setq rest (cdr rest))) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
257 (append `(menu-item ,(car defn) ,rest) |
ddce4c48ffb7
Choose images dynamically.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
258 (list :image image-exp) props))))))) |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
259 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
260 ;;; Set up some global items. Additions/deletions up for grabs. |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
261 |
98658
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
262 (defun tool-bar-setup () |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
263 ;; People say it's bad to have EXIT on the tool bar, since users |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
264 ;; might inadvertently click that button. |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
265 ;;(tool-bar-add-item-from-menu 'save-buffers-kill-emacs "exit") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
266 (tool-bar-add-item-from-menu 'find-file "new") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
267 (tool-bar-add-item-from-menu 'menu-find-file-existing "open") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
268 (tool-bar-add-item-from-menu 'dired "diropen") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
269 (tool-bar-add-item-from-menu 'kill-this-buffer "close") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
270 (tool-bar-add-item-from-menu 'save-buffer "save" nil |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
271 :visible '(or buffer-file-name |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
272 (not (eq 'special |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
273 (get major-mode |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
274 'mode-class))))) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
275 (tool-bar-add-item-from-menu 'write-file "saveas" nil |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
276 :visible '(or buffer-file-name |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
277 (not (eq 'special |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
278 (get major-mode |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
279 'mode-class))))) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
280 (tool-bar-add-item-from-menu 'undo "undo" nil |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
281 :visible '(not (eq 'special (get major-mode |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
282 'mode-class)))) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
283 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [cut]) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
284 "cut" nil |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
285 :visible '(not (eq 'special (get major-mode |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
286 'mode-class)))) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
287 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [copy]) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
288 "copy") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
289 (tool-bar-add-item-from-menu (lookup-key menu-bar-edit-menu [paste]) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
290 "paste" nil |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
291 :visible '(not (eq 'special (get major-mode |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
292 'mode-class)))) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
293 (tool-bar-add-item-from-menu 'nonincremental-search-forward "search") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
294 ;;(tool-bar-add-item-from-menu 'ispell-buffer "spell") |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
295 |
98658
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
296 ;; There's no icon appropriate for News and we need a command rather |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
297 ;; than a lambda for Read Mail. |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
298 ;;(tool-bar-add-item-from-menu 'compose-mail "mail/compose") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
299 |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
300 (tool-bar-add-item-from-menu 'print-buffer "print") |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
301 |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
302 ;; tool-bar-add-item-from-menu itself operates on |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
303 ;; (default-value 'tool-bar-map), but when we don't use that function, |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
304 ;; we must explicitly operate on the default value. |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
305 |
98658
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
306 (let ((tool-bar-map (default-value 'tool-bar-map))) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
307 (tool-bar-add-item "preferences" 'customize 'customize |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
308 :help "Edit preferences (customize)") |
70323
810cd69c168f
(tool-bar-setup): Put Help and Preferences items in the default tool-bar-map.
Richard M. Stallman <rms@gnu.org>
parents:
68651
diff
changeset
|
309 |
98658
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
310 (tool-bar-add-item "help" (lambda () |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
311 (interactive) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
312 (popup-menu menu-bar-help-menu)) |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
313 'help |
3e7bd62df13a
(tool-bar-setup): Variable deleted.
Chong Yidong <cyd@stupidchicken.com>
parents:
98624
diff
changeset
|
314 :help "Pop up the Help menu"))) |
83514 | 315 |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
316 |
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
317 (provide 'tool-bar) |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92262
diff
changeset
|
318 ;; arch-tag: 15f30f0a-d0d7-4d50-bbb7-f48fd0c8582f |
66168
28718fa5d988
Moved all remaining images from lisp/toolbar to etc/images, moved
Bill Wohler <wohler@newt.com>
parents:
diff
changeset
|
319 ;;; tool-bar.el ends here |