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

fix to PR 7988

Browse Source 
svn: r3222

original commit: b462f7cf2c0e4732691f429f35833f8dbff224ed
This commit is contained in:
Robby Findler 2006-06-04 22:28:36 +00:00
parent 5362604064
commit 02b90d6c1e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -19,6 +19,7 @@
(syntax (#%plain-module-begin
(define #%keymap (make-object keymap:aug-keymap%))
(provide #%keymap)
(define counter 0)
(define (#%keybinding key proc src line col pos)
(unless (string? key)
(error 'keybinding "expected string as first argument, got ~e (other arg ~e)" key proc))
@ -27,9 +28,10 @@
(error 'keybinding "expected procedure of two arguments as second argument, got ~e (other arg ~e)"
proc
key))
(set! counter (+ counter 1))
(let ([name (if (and line col)
(format "~a:~a.~a" src line col)
(format "~a:~a" src pos))])
(format "~a:~a.~a:~a" src line col counter)
(format "~a:~a:~a" src pos counter))])
(send #%keymap add-function name
(λ (x y)
(let ([end-edit-sequence