;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
+;; Image files are taken from GNOME stock icons:
+;; riece-command-next-channel.xpm stock_next.png
+;; riece-command-previous-channel.xpm stock_previous.png
+;; riece-command-configure-windows.xpm stock_refresh.png
+;; riece-command-change-layout stock_styles.png
+;; riece-command-join stock_people.png
+;; riece-command-part stock_calc-cancel.png
+;; riece-command-quit stock_exit.png
+
;; NOTE: This is an add-on module for Riece.
;;; Code:
"Display toolbar icons.")
(defvar riece-toolbar-items
- '(riece-command-quit
- riece-command-join
- riece-command-part
- riece-command-previous-channel
+ '(riece-command-previous-channel
riece-command-next-channel
+ riece-command-configure-windows
riece-command-change-layout
- riece-submit-bug-report))
+ riece-command-join
+ riece-command-part
+ riece-command-quit))
(defun riece-toolbar-find-menu-item (command)
(let ((pointer riece-menu-items)
(setq pointer (cdr pointer))))
item))
-(if (featurep 'xemacs)
- (if (featurep 'toolbar)
- (progn
- (defun riece-make-toolbar-from-menu (items menu-items map)
- (let ((pointer items)
- toolbar
- file
- menu-item)
- (while pointer
- (setq file (locate-file (symbol-name (car pointer))
- (cons riece-data-directory load-path)
- '(".xpm" ".pbm" ".xbm"))
- menu-item (riece-toolbar-find-menu-item (car pointer)))
- (if (and file (file-exists-p file))
- (setq toolbar
- (toolbar-add-item
- toolbar
- (toolbar-new-button
- file
- (car pointer)
- (if menu-item
- (aref menu-item 0)
- (symbol-name (car pointer)))))))
- (setq pointer (cdr pointer)))
- toolbar))
- (defvar riece-toolbar-original-toolbar nil)
- (defun riece-set-toolbar (toolbar)
- (make-local-variable 'riece-toolbar-original-toolbar)
- (setq riece-toolbar-original-toolbar
- (specifier-specs default-toolbar (current-buffer)))
- (set-specifier default-toolbar toolbar (current-buffer)))
- (defun riece-unset-toolbar ()
- (if riece-toolbar-original-toolbar
- (set-specifier default-toolbar riece-toolbar-original-toolbar
- (current-buffer))
- (remove-specifier default-toolbar (current-buffer)))
- (kill-local-variable 'riece-toolbar-original-toolbar)))
- (defalias 'riece-make-toolbar-from-menu 'ignore)
- (defalias 'riece-set-toolbar 'ignore)
- (defalias 'riece-unset-toolbar 'ignore))
- (defun riece-make-toolbar-from-menu (items menu-items map)
- (let ((pointer items)
- (tool-bar-map (make-sparse-keymap)))
- (while pointer
- (tool-bar-add-item-from-menu (car pointer)
- (symbol-name (car pointer))
- map)
- (setq pointer (cdr pointer)))
- tool-bar-map))
- (defun riece-set-toolbar (toolbar)
- (make-local-variable 'tool-bar-map)
- (setq tool-bar-map toolbar))
- (defun riece-unset-toolbar ()
- (kill-local-variable 'tool-bar-map)))
+(eval-and-compile
+ (if (featurep 'xemacs)
+ (if (featurep 'toolbar)
+ (progn
+ (defun riece-make-toolbar-from-menu (items menu-items map)
+ (let ((pointer items)
+ toolbar
+ file
+ menu-item)
+ (while pointer
+ (setq file (locate-file (symbol-name (car pointer))
+ (cons riece-data-directory load-path)
+ '(".xpm" ".pbm" ".xbm"))
+ menu-item (riece-toolbar-find-menu-item (car pointer)))
+ (if (and file (file-exists-p file))
+ (setq toolbar
+ (toolbar-add-item
+ toolbar
+ (toolbar-new-button
+ file
+ (car pointer)
+ (if menu-item
+ (aref menu-item 0)
+ (symbol-name (car pointer)))))))
+ (setq pointer (cdr pointer)))
+ toolbar))
+ (defvar riece-toolbar-original-toolbar nil)
+ (defun riece-set-toolbar (toolbar)
+ (make-local-variable 'riece-toolbar-original-toolbar)
+ (setq riece-toolbar-original-toolbar
+ (specifier-specs default-toolbar (current-buffer)))
+ (set-specifier default-toolbar toolbar (current-buffer)))
+ (defun riece-unset-toolbar ()
+ (if riece-toolbar-original-toolbar
+ (set-specifier default-toolbar riece-toolbar-original-toolbar
+ (current-buffer))
+ (remove-specifier default-toolbar (current-buffer)))
+ (kill-local-variable 'riece-toolbar-original-toolbar)))
+ (defalias 'riece-make-toolbar-from-menu 'ignore)
+ (defalias 'riece-set-toolbar 'ignore)
+ (defalias 'riece-unset-toolbar 'ignore))
+ (defun riece-make-toolbar-from-menu (items menu-items map)
+ (let ((pointer items)
+ (tool-bar-map (make-sparse-keymap)))
+ (while pointer
+ (tool-bar-add-item-from-menu (car pointer)
+ (symbol-name (car pointer))
+ map)
+ (setq pointer (cdr pointer)))
+ tool-bar-map))
+ (defun riece-set-toolbar (toolbar)
+ (make-local-variable 'tool-bar-map)
+ (setq tool-bar-map toolbar))
+ (defun riece-unset-toolbar ()
+ (kill-local-variable 'tool-bar-map))))
(defvar riece-command-mode-map)
(defun riece-toolbar-command-mode-hook ()
(with-current-buffer riece-command-buffer
(riece-toolbar-command-mode-hook)))
(add-hook 'riece-command-mode-hook
- 'riece-toolbar-command-mode-hook))
+ 'riece-toolbar-command-mode-hook t))
(defun riece-toolbar-uninstall ()
(if riece-command-buffer
(provide 'riece-toolbar)
-;;; riece-toolbar.el ends here
\ No newline at end of file
+;;; riece-toolbar.el ends here
projects / riece / blobdiff