(wl-e21-tool-bar-lines): New buffer local variable.

(wl-e21-switch-toolbar): New function to switch the toolbar appearance
automatically.
(post-command-hook): Add `wl-e21-switch-toolbar'.

NOTE: This change should be fixed in the future.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6cce28b..0b881d2 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2000-09-26  Katsumi Yamaoka    <yamaoka@jpl.org>
+
+       NOTE: This change should be fixed in the future.
+       * wl-e21.el (post-command-hook): Add `wl-e21-switch-toolbar'.
+       (wl-e21-switch-toolbar): New function to switch the toolbar
+       appearance automatically.
+       (wl-e21-tool-bar-lines): New buffer local variable.
+
 2000-09-25  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-util.el (wl-biff-check-folders-running): New variable.

diff --git a/wl/wl-e21.el b/wl/wl-e21.el
index 59af044..cefd192 100644 (file)
--- a/wl/wl-e21.el
+++ b/wl/wl-e21.el
@@ -189,12 +189,26 @@
     (tool-bar-button-margin      . 0)
     (tool-bar-button-relief      . 2)))
 
+;; FIXME! It's only a quick hack.
+(defvar wl-e21-tool-bar-lines nil)
+(defun wl-e21-switch-toolbar ()
+  (let* ((frame (selected-frame))
+        (old (frame-parameter frame 'tool-bar-lines))
+        (new (or wl-e21-tool-bar-lines
+                 (cdr (assq 'tool-bar-lines default-frame-alist)))))
+    (unless (eq (and old t) (and new t))
+      (modify-frame-parameters frame (list (cons 'tool-bar-lines new)))
+      ;;(redraw-frame frame)
+      )))
+(add-hook 'post-command-hook 'wl-e21-switch-toolbar)
+
 (defun wl-e21-make-toolbar-buttons (keymap defs)
   (let ((configs wl-e21-toolbar-configurations)
        config)
     (while (setq config (pop configs))
       (set (make-local-variable (car config)) (cdr config))))
   (modify-frame-parameters (selected-frame) '((tool-bar-lines . 1)))
+  (set (make-local-variable 'wl-e21-tool-bar-lines) 1)
   (let ((n (1- (length defs)))
        def)
     (while (>= n 0)