address@hidden: tool-bar does update properly]

[Richard Stallman]

Would someone please DTRT and ack this message?

------- Start of forwarded message -------
Date: Thu, 17 Aug 2006 08:39:08 -0300
From: "Miguel V. S. Frasson" <address@hidden>
To: address@hidden
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Disposition: inline
Subject: tool-bar does update properly
X-Spam-Status: No, score=0.0 required=5.0 tests=RCVD_BY_IP autolearn=failed 
        version=3.0.4

Hi

If two keymaps for toolbars start with same buttons, switching from
larger to smaller does not update the toolbar.

Test case:

Evaluate the following

1) emacs -Q  (please have the toolbar enabled)

2) Evaluate

(progn
  ;; map1 has open button
  (setq map1 (make-sparse-keymap))
  (tool-bar-local-item-from-menu 'menu-find-file-existing "open" map1)
  ;; map2 has open and new buttons (both must start with the same button)
  (setq map2 (make-sparse-keymap))
  (tool-bar-local-item-from-menu 'menu-find-file-existing "open" map2)
  (tool-bar-local-item-from-menu 'find-file "new" map2)
  (make-local-variable 'tool-bar-map)
  ;; variable to switch toolbars
  (setq foo nil))

3) Keep evaluating

(setq tool-bar-map
      (if (setq foo (not foo)) map1 map2))  ;<-- eval here several times

You may see that the toolbar does not change

Now do the following

4) Repeat the following: eval expression in 3) and switch to another
   buffer and switch back.

You see that the toolbar is refresh accordingly.

If the smaller toolbar is set, switching to the larger, the toolbar
gets updated, but not the other way around.  I can reproduce this
behavior in Emacs using GNU/Linux (not so old build) and M$ Windows
(quite few months old).

Sincerely

Miguel.

If emacs crashed, and you have the emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
/usr/local/share/emacs/22.0.50/etc/DEBUG for instructions.


In GNU Emacs 22.0.50.3 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2006-06-09 on miguel
X server distributor `The X.Org Foundation', version 11.0.60802000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  show-paren-mode: t
  delete-selection-mode: t
  pc-selection-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-e <down> <down> <down> <end> C-x C-e C-x C-e C-x
C-e C-x C-e C-x C-e C-x C-e C-x C-e <left> <left> C-x
C-e <left> <left> <C-left> <left> C-x C-e <up> <up>
<up> <up> <up> <up> <up> <home> <S-end> <delete> <down>
<S-end> <C-insert> <up> <S-insert> <C-left> <right>
<right> <right> <delete> 1 <end> <down> <down> <down>
<down> C-x C-e <down> <down> <down> <end> C-x C-e C-x
C-e C-x C-e C-x C-e C-x C-e C-x C-e C-x b <return>
C-x b <return> C-x C-e C-x b <return> C-x b <return>
C-x C-e <up> <down> M-x r e p o r t <tab> <return>

Recent messages:
(keymap (open-file menu-item "Open File..." menu-find-file-existing
(nil) :enable (menu-bar-non-minibuffer-window-p) :help "Read an
existing file into an Emacs buffer" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")) (new-file
menu-item "Visit New File..." find-file ([24 6] . "  (C-x C-f)")
:enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's
name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/new.xpm")))
(keymap (new-file menu-item "Visit New File..." find-file ([24 6] . "
(C-x C-f)") :enable (menu-bar-non-minibuffer-window-p) :help "Specify
a new file's name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")))
(keymap (open-file menu-item "Open File..." menu-find-file-existing
(nil) :enable (menu-bar-non-minibuffer-window-p) :help "Read an
existing file into an Emacs buffer" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")) (new-file
menu-item "Visit New File..." find-file ([24 6] . "  (C-x C-f)")
:enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's
name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/new.xpm")))
(keymap (new-file menu-item "Visit New File..." find-file ([24 6] . "
(C-x C-f)") :enable (menu-bar-non-minibuffer-window-p) :help "Specify
a new file's name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")))
(keymap (open-file menu-item "Open File..." menu-find-file-existing
(nil) :enable (menu-bar-non-minibuffer-window-p) :help "Read an
existing file into an Emacs buffer" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")) (new-file
menu-item "Visit New File..." find-file ([24 6] . "  (C-x C-f)")
:enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's
name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/new.xpm")))
(keymap (new-file menu-item "Visit New File..." find-file ([24 6] . "
(C-x C-f)") :enable (menu-bar-non-minibuffer-window-p) :help "Specify
a new file's name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")))
Mark set [3 times]
nil
(keymap (open-file menu-item "Open File..." menu-find-file-existing
(nil) :enable (menu-bar-non-minibuffer-window-p) :help "Read an
existing file into an Emacs buffer" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/open.xpm")) (new-file
menu-item "Visit New File..." find-file ([24 6] . "  (C-x C-f)")
:enable (menu-bar-non-minibuffer-window-p) :help "Specify a new file's
name, to edit the file" :image (image :type xpm :file
"/usr/local/share/emacs/22.0.50/etc/images/new.xpm")))
Loading emacsbug...done
- -- 
Miguel Vinicius Santini Frasson
address@hidden


_______________________________________________
emacs-pretest-bug mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
------- End of forwarded message -------