original commit: c4abc424508dc3e196f1262bba2feaafd8d5fd1b
This commit is contained in:
Matthew Flatt 2002-01-23 04:04:08 +00:00
parent e6f5c70ad8
commit ec1976b5c1

View File

@ -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)))))