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 (syntax (#%plain-module-begin
(define #%keymap (make-object keymap:aug-keymap%)) (define #%keymap (make-object keymap:aug-keymap%))
(provide #%keymap) (provide #%keymap)
(define counter 0)
(define (#%keybinding key proc src line col pos) (define (#%keybinding key proc src line col pos)
(unless (string? key) (unless (string? key)
(error 'keybinding "expected string as first argument, got ~e (other arg ~e)" key proc)) (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)" (error 'keybinding "expected procedure of two arguments as second argument, got ~e (other arg ~e)"
proc proc
key)) key))
(set! counter (+ counter 1))
(let ([name (if (and line col) (let ([name (if (and line col)
(format "~a:~a.~a" src line col) (format "~a:~a.~a:~a" src line col counter)
(format "~a:~a" src pos))]) (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