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

make c:x;c:f keybinding use file-menu:open-callback (when it can)

Browse Source
This commit is contained in:
Robby Findler 2014-05-26 12:50:56 -05:00
parent 5631732e9d
commit 8ff984a934
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pkgs/gui-pkgs/gui-lib/framework/private/keymap.rkt
View File

@ -1429,11 +1429,22 @@
#t)]
[load-file
(λ (edit event)
(let ([fn (send edit get-filename)])
(handler:open-file
(and fn
(let-values ([(base name dir) (split-path fn)])
base))))
(define (fallback)
(let ([fn (send edit get-filename)])
(handler:open-file
(and fn
(let-values ([(base name dir) (split-path fn)])
base)))))
(cond
[(is-a? edit editor:basic<%>)
(define fr (send edit get-top-level-window))
(cond
[(is-a? fr frame:standard-menus<%>)
(send fr file-menu:open-callback
(send fr file-menu:get-open-item)
event)]
[else (fallback)])]
[else (fallback)])
#t)])
(λ (kmap #:alt-as-meta-keymap [alt-as-meta-keymap #f])
(let* ([map (λ (key func)