From 3a3c62ab01c6f33d0e7ac2f17b92a9663d7f12e6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 29 Sep 2000 13:08:46 +0000 Subject: [PATCH] (wl-e21-setup-toolbar): Make the background color of XPM icons transparent. ;; I could not find how to invalidate the default bindings in toolbar. ;; `(t . undefined)' does not work for it. :-< --- wl/wl-e21.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/wl/wl-e21.el b/wl/wl-e21.el index 3569dbf..79a0b96 100644 --- a/wl/wl-e21.el +++ b/wl/wl-e21.el @@ -153,22 +153,21 @@ (defun wl-e21-setup-toolbar (bar) (let ((load-path (cons wl-icon-dir load-path)) + (props '(:type xpm :ascent center + :color-symbols (("backgroundToolBarColor" . "None")) + :file)) (success t) icon up down disabled name success) (while bar (setq icon (aref (pop bar) 0)) (unless (boundp icon) (setq name (symbol-name icon) - up (find-image `((:type xpm :file ,(concat name "-up.xpm") - :ascent center)))) + up (find-image `((,@props ,(concat name "-up.xpm"))))) (if up (progn - (setq down (find-image - `((:type xpm :file ,(concat name "-down.xpm") - :ascent center))) - disabled (find-image - `((:type xpm :file ,(concat name "-disabled.xpm") - :ascent center)))) + (setq down (find-image `((,@props ,(concat name "-down.xpm")))) + disabled (find-image `((,@props + ,(concat name "-disabled.xpm"))))) (set icon (vector down up disabled disabled))) (setq bar nil success nil)))) @@ -185,11 +184,11 @@ config) (while (setq config (pop configs)) (set (make-local-variable (car config)) (cdr config)))) - (let ((n (1- (length defs))) + (let ((n (length defs)) def) (while (>= n 0) - (setq def (nth n defs) - n (1- n)) + (setq n (1- n) + def (nth n defs)) (define-key keymap (vector 'tool-bar (aref def 1)) (list 'menu-item (aref def 3) (aref def 1) :enable (aref def 2) -- 1.7.10.4