suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: bb399c64bdc1b7f2ba1a1144438e74d207d71c97
This commit is contained in:
Matthew Flatt 2003-06-24 15:34:30 +00:00
parent 17fe8e25a2
commit f3b5810173
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/mred/mred.ss
View File

@ -1606,15 +1606,14 @@
[handle-menu-key
(lambda (event)
(and menu-bar
(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)))])
;; It can't be a menu event without a
;; control, meta, or alt key...
(or (send event get-control-down)
(send event get-meta-down)
(send event get-alt-down))
(begin
(send menu-bar on-demand)
(send menu-bar handle-key event))))])
(sequence
(apply super-init args)))))