(defcustom toolbar-open-function 'find-file
"*Function to call when the open icon is selected."
:type '(radio (function-item find-file)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-open ()
(defcustom toolbar-dired-function 'dired
"*Function to call when the dired icon is selected."
:type '(radio (function-item dired)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-dired (dir)
(defcustom toolbar-save-function 'save-buffer
"*Function to call when the save icon is selected."
:type '(radio (function-item save-buffer)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-save ()
(defcustom toolbar-print-function 'lpr-buffer
"*Function to call when the print icon is selected."
:type '(radio (function-item lpr-buffer)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-print ()
(defcustom toolbar-cut-function 'kill-primary-selection
"*Function to call when the cut icon is selected."
:type '(radio (function-item kill-primary-selection)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-cut ()
(defcustom toolbar-copy-function 'copy-primary-selection
"*Function to call when the copy icon is selected."
:type '(radio (function-item copy-primary-selection)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-copy ()
(defcustom toolbar-paste-function 'yank-clipboard-selection
"*Function to call when the paste icon is selected."
:type '(radio (function-item yank-clipboard-selection)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-paste ()
(defcustom toolbar-undo-function 'undo
"*Function to call when the undo icon is selected."
:type '(radio (function-item undo)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-undo ()
(defcustom toolbar-replace-function 'query-replace
"*Function to call when the replace icon is selected."
:type '(radio (function-item query-replace)
- (function :tag "Other"))
+ (function :tag "Other"))
:group 'toolbar)
(defun toolbar-replace ()
(const vm) (const gnus) (const rmail) (const mh)
(const pine) (const elm) (const mutt) (const exmh)
(const netscape)
- (const send)
+ (const send)
(symbol :tag "Other"
:validate (lambda (wid)
(if (assq (widget-value wid)
;; do this now because errors will occur if the icon symbols
;; are not initted
(set-specifier default-toolbar initial-toolbar-spec))
-
+
(defun toolbar-add-item-data ( icon-list &optional icon-dir )
(if (eq icon-dir nil)
(setq icon-dir toolbar-icon-directory))
(concat prefix "-xx.xbm"))))))
icon-list))
-(defvar toolbar-vector-open
+(defvar toolbar-vector-open
[toolbar-file-icon toolbar-open t "Open a file"]
"Define the vector for the \"Open\" toolbar button")
"Define the vector for the \"Spell\" toolbar button")
(defvar toolbar-vector-replace
- [toolbar-replace-icon toolbar-replace t "Search & Replace"]
+ [toolbar-replace-icon toolbar-replace t "Search & Replace"]
"Define the vector for the \"Replace\" toolbar button")
(defvar toolbar-vector-mail