47 |
|
|
48 |
See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for |
See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for |
49 |
conveniently adding tool bar items." |
conveniently adding tool bar items." |
50 |
:init-value t |
:init-value nil |
51 |
:global t |
:global t |
52 |
:group 'mouse |
:group 'mouse |
53 |
:group 'frames |
:group 'frames |
68 |
(= 1 (length (default-value 'tool-bar-map)))) ; not yet setup |
(= 1 (length (default-value 'tool-bar-map)))) ; not yet setup |
69 |
(tool-bar-setup)))) |
(tool-bar-setup)))) |
70 |
|
|
71 |
|
;;;###autoload |
72 |
|
;; We want to pretend the toolbar by standard is on, as this will make |
73 |
|
;; customize consider disabling the toolbar a customization, and save |
74 |
|
;; that. We could do this for real by setting :init-value above, but |
75 |
|
;; that would turn on the toolbar in MS Windows where it is currently |
76 |
|
;; useless, and it would overwrite disabling the tool bar from X |
77 |
|
;; resources. If anyone want to implement this in a cleaner way, |
78 |
|
;; please do so. |
79 |
|
;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-21. |
80 |
|
(put 'tool-bar-mode 'standard-value '(t)) |
81 |
|
|
82 |
(defvar tool-bar-map (make-sparse-keymap) |
(defvar tool-bar-map (make-sparse-keymap) |
83 |
"Keymap for the tool bar. |
"Keymap for the tool bar. |
84 |
Define this locally to override the global tool bar.") |
Define this locally to override the global tool bar.") |