Re: Modify menu-bar help

[Tim Cross <theophilusx@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1988 bytes --]

On Sat, Feb 26, 2011 at 9:22 PM, Jan Djärv <jan.h.d@swipnet.se> wrote:

>
>
> Tim Cross skrev 2011-02-26 00.58:
>
>
>> I'm a bit surprised that the same problem seems to occur under the
>> NextStep OS
>> - while I'm not expert here and could have things confused, it looked to
>> me
>> like the ns version added menu 'buttons' when I scanned the menu-bar.el
>> file.
>>
>>
> Menu-bar.el has nothing to do with how things are implemented at the
> toolkit level.  Looking at it gives no clue what so ever.
>
>        Jan D.
>
> This was my mis-reading/remembering of the code in menu-bar.el. I thought
there was code in menu-bar.el that was adding 'action' menus 'buttons' at
the top level in the ns port, but looking at it again, I realise this is for
the GNUStep version. My (flawed) logic was that if menu-bar.el is adding top
level action buttons for a version, then the tookit used for that version
must allow it. I think my logic is OK, it was my scanning of the code that
led to the wrong conclusion! The code in quesiton was
(if (not (featurep 'ns))
    ;; Force Help item to come last, after the major mode's own items.
    ;; The symbol used to be called `help', but that gets confused with the
    ;; help key.
    (setq menu-bar-final-items '(help-menu))
  (if (eq system-type 'darwin)
      (setq menu-bar-final-items '(buffer services help-menu))
    (setq menu-bar-final-items '(buffer services hide-app quit))
    ;; Add standard top-level items to GNUstep menu.
    (define-key global-map [menu-bar quit]
      `(menu-item ,(purecopy "Quit") save-buffers-kill-emacs
                  :help ,(purecopy "Save unsaved buffers, then exit")))
    (define-key global-map [menu-bar hide-app]
      `(menu-item ,(purecopy "Hide") ns-do-hide-emacs
                  :help ,(purecopy "Hide Emacs"))))
  (define-key global-map [menu-bar services] ; set-up in ns-win
    (cons (purecopy "Services") (make-sparse-keymap "Services"))))

Tim

[-- Attachment #2: Type: text/html, Size: 2720 bytes --]