.
original commit: c4abc424508dc3e196f1262bba2feaafd8d5fd1b
This commit is contained in:
parent
e6f5c70ad8
commit
ec1976b5c1
|
@ -1428,7 +1428,14 @@
|
|||
[handle-menu-key
|
||||
(lambda (event)
|
||||
(and menu-bar
|
||||
(begin (send menu-bar on-demand) #t)
|
||||
(begin
|
||||
;; It can't be a menu event without a
|
||||
;; control, meta, or alt key...
|
||||
(when (or (send event get-control-down)
|
||||
(send event get-meta-down)
|
||||
(send event get-alt-down))
|
||||
(send menu-bar on-demand))
|
||||
#t)
|
||||
(send menu-bar handle-key event)))])
|
||||
(sequence
|
||||
(apply super-init args)))))
|
||||
|
|
Loading…
Reference in New Issue
Block a user