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

if the function has a name, the name is now used as the name of the keybinding

Browse Source 
svn: r8744
This commit is contained in:
Robby Findler 2008-02-20 21:02:30 +00:00
parent a4d6fa5a0e
commit f2c8ff355e
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,9 +29,14 @@
proc
key))
(set! counter (+ counter 1))
(let ([name (if (and line col)
(format "~a:~a.~a:~a" src line col counter)
(format "~a:~a:~a" src pos counter))])
(let ([name
(cond
[(symbol? (object-name proc))
(format "~a" (object-name proc))]
[(and line col)
(format "~a:~a.~a:~a" src line col counter)]
[else
(format "~a:~a:~a" src pos counter)])])
(send #%keymap add-function name
(λ (x y)
(let ([end-edit-sequence