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

.

Browse Source 
original commit: ab1bb138051de1969d1c9a381a3e0dd2e1412f2a
This commit is contained in:
Robby Findler 2004-12-27 19:53:24 +00:00
parent 57c7016b58
commit 912db5af78
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/framework/keybinding-lang.ss
View File

@ -32,13 +32,28 @@
(format "~a:~a" src pos))])
(send #%keymap add-function name
(lambda (x y)
(let ([end-edit-sequence
(lambda ()
(when (is-a? x editor<%>)
(let loop ()
(when (send x in-edit-sequence?)
(send x end-edit-sequence)
(loop)))))])
(with-handlers ([exn:fail?
(lambda (x)
(end-edit-sequence)
(message-box (string-constant drscheme)
(format (string-constant user-defined-keybinding-error)
name
(exn-message x))))])
(proc x y))))
(proc x y)
(when (is-a? x editor<%>)
(when (send x in-edit-sequence?)
(end-edit-sequence)
(message-box (string-constant drscheme)
(format (string-constant user-defined-keybinding-error)
name
"Editor left in edit-sequence"))))))))
(send #%keymap map-function key name)))
(define-syntax (keybinding stx)
(syntax-case stx ()