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

user-defined keybindings now override menu items

Browse Source 
svn: r17135
This commit is contained in:
Robby Findler 2009-12-01 15:05:49 +00:00
parent ca5f5656c0
commit f4049e8c63
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/frame.ss
View File

@ -27,6 +27,13 @@
(define basics-mixin (define basics-mixin
(mixin (frame:standard-menus<%>) (basics<%>) (mixin (frame:standard-menus<%>) (basics<%>)
(define/override (on-subwindow-char receiver event)
(let ([user-key? (send (keymap:get-user) handle-key-event receiver event)])
;; (printf "user-key? ~s\n" user-key?) returns #t for key release events -- is this a problem? (we'll find out!)
(or user-key?
(super on-subwindow-char receiver event))))
(inherit get-edit-target-window get-edit-target-object get-menu-bar) (inherit get-edit-target-window get-edit-target-object get-menu-bar)
(define/private (get-menu-bindings) (define/private (get-menu-bindings)
(let ([name-ht (make-hasheq)]) (let ([name-ht (make-hasheq)])