suzanne.soy/gui
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

original commit: f2c8ff355edb425230391408cf8e6d38fb359446
This commit is contained in:
Robby Findler 2008-02-20 21:02:30 +00:00
parent 4c7831c04c
commit 57cd0ce3ac
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 proc
key)) key))
(set! counter (+ counter 1)) (set! counter (+ counter 1))
(let ([name (if (and line col) (let ([name
(format "~a:~a.~a:~a" src line col counter) (cond
(format "~a:~a:~a" src pos counter))]) [(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 (send #%keymap add-function name
(λ (x y) (λ (x y)
(let ([end-edit-sequence (let ([end-edit-sequence