How to bind pop up menu to a key?

How to bind pop up menu to a key?

[Neon Absentius]

Hello

I like to turn the menu bar off since most of the time I don't use
it. However now and then --especially when I am trying a new
package-- I like to use the menu for easy reference. When I am in 
X I prefer to use the C-mouse3 binding that pop's up a nice menu with
the contents of the menu bar. I hate to leave the keyboard to reach
for the rodent though. Is there some way to bind this to a key? 

Also is it possible to navigate the pop-up menus with the keyboard?

-- 
Charity in capitalism is like urinating to extinguish a forest fire.
    -- Neon Absentius
absent a.in.cirle sdf period lonestar period org
SDF Public Access UNIX System - http://sdf.lonestar.org

Re: How to bind pop up menu to a key?

[August]

On mån, 2005-02-21 at 01:45 +0000, Neon Absentius wrote:
> Hello
> 
> I like to turn the menu bar off since most of the time I don't use
> it. However now and then --especially when I am trying a new
> package-- I like to use the menu for easy reference. When I am in 
> X I prefer to use the C-mouse3 binding that pop's up a nice menu with
> the contents of the menu bar. I hate to leave the keyboard to reach
> for the rodent though. Is there some way to bind this to a key? 

(menu-bar-mode nil)
(global-set-key [C-mouse-3] 'mouse-popup-menubar)

> Also is it possible to navigate the pop-up menus with the keyboard?

Don't know. If you use C-mouse-3 for the menu then you already have your
hand on the mouse, so why use the keyboard?

-- 
August

Re: How to bind pop up menu to a key?

[Neon Absentius]

On Mon, Feb 21, 2005 at 09:56:58PM +0100, August wrote:
> On mΓ₯n, 2005-02-21 at 01:45 +0000, Neon Absentius wrote:
> > Hello
> > 
> > I like to turn the menu bar off since most of the time I don't use
> > it. However now and then --especially when I am trying a new
> > package-- I like to use the menu for easy reference. When I am in 
> > X I prefer to use the C-mouse3 binding that pop's up a nice menu with
> > the contents of the menu bar. I hate to leave the keyboard to reach
> > for the rodent though. Is there some way to bind this to a key? 
> 
> (menu-bar-mode nil)
> (global-set-key [C-mouse-3] 'mouse-popup-menubar)

Thanks for your answer. I am afraid I didn't express my self very
clearly. I want to bind the mouse-popup-menubar to a keyboard enent,
*not* to C-mouse-3 which is the default binding. When I try

(global-set-key (kbd "M-<f1>") 'mouse-popup-menubar)

for example, and then I press M-<F1> I get the message 

      mouse-popup-menubar must be bound to an event with parameters

The mouse-popup-menubar seems to be the right action since when I unbind 
the [C-mouse-3] and then rebind it again it works as before.


> 
> > Also is it possible to navigate the pop-up menus with the keyboard?
> 
> Don't know. If you use C-mouse-3 for the menu then you already have your
> hand on the mouse, so why use the keyboard?
> 

Yes, but I want to have the popup menu from the keyboard to begin
with.

-- 
Charity in capitalism is like urinating to extinguish a forest fire.
    -- Neon Absentius
absent a.in.cirle sdf period lonestar period org
SDF Public Access UNIX System - http://sdf.lonestar.org

Re: How to bind pop up menu to a key?

[rgb]

> I want to bind the mouse-popup-menubar to a keyboard enent,
> *not* to C-mouse-3 which is the default binding. When I try
>
> (global-set-key (kbd "M-<f1>") 'mouse-popup-menubar)
>
> for example, and then I press M-<F1> I get the message
>
>       mouse-popup-menubar must be bound to an event with parameters
>
mouse-popup-menubar is defined with (interactive "@e \nP").
The `e' is an event from which it can determine the window, buffer,
and screen position to associate the popup-menu with.  In fact
it's possible that different menus will display depending on what
buffer you click in.

It seems your best chance of clean operation is to write a function
that makes up a contrived event list appropriate to your cursor
position and uses it to call mouse-popup-menubar.  It likely depends
on your windowing software if keyboard completion of the popup is
possible.  On W32 systems it is.

Between this function and the Emacs Lisp Reference manual you can
probably find a way to create the appropriate event.

(defun event-test (event)
  (interactive "@e")
  (message "Event = %s" event)
)
(global-set-key [S-mouse-3] 'event-test)

>From what returned above I was able to get the menu to pop up.
See below.  Looks promising.  The word `keyboard' was made up.
The above said S-mouse-3 like you'd expect.

M-: (mouse-popup-menubar `(keyboard (,(selected-window)
                                248 (126 . 104) 70080603
                                nil 248 (15 . 6) nil
                                (6 . 8) (8 . 16))) ()) <ret>

P.S.  The final () in the above call is the `P' prefix arg.
Your keyboard function should grab this and pass it along to
be complete.

Good luck.
If you invent something useful please post.

Re: How to bind pop up menu to a key?

[Neon Absentius]

On Mon, Feb 21, 2005 at 10:16:30PM -0800, rgb wrote:
 > Between this function and the Emacs Lisp Reference manual you can
> probably find a way to create the appropriate event.
> 
> (defun event-test (event)
>   (interactive "@e")
>   (message "Event = %s" event)
> )
> (global-set-key [S-mouse-3] 'event-test)
> 
> >From what returned above I was able to get the menu to pop up.
> See below.  Looks promising.  The word `keyboard' was made up.
> The above said S-mouse-3 like you'd expect.
> 
> M-: (mouse-popup-menubar `(keyboard (,(selected-window)
>                                 248 (126 . 104) 70080603
>                                 nil 248 (15 . 6) nil
>                                 (6 . 8) (8 . 16))) ()) <ret>
> 

Thank you, this was very useful. 

I haven't had to time to pay any serious attention to this, but today
I played little bit bit with it and it looks promising.

If anything comes out of it I'll post.

-- 
Charity in capitalism is like urinating to extinguish a forest fire.
    -- Neon Absentius
absent a.in.cirle sdf period lonestar period org
SDF Public Access UNIX System - http://sdf.lonestar.org